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0.1 
9.2 



OS-06-8Z 
05-27.82 



V 0.3 06-21-62 LCF 



V 0.4 
T O.S 



Oi-2?-82 
06-18-82 



V C.^ 10-29-62 LEF 



Otiginai ptoqraa 

Add keyboatd diivei (kb> 

Add dispUf driver <»b) 

Add 6" Corvus tioppy disk driver Ub) 

Add b" Coivus tlopp7 disk boot 

Finds iitst iocai disk tot booting 

QNNINET disk dtivet Bodificitions 

Add KACSBUG iniettice 

Add S" floppy drive: 

Add S' floppy boot 

Finds first floppy disk for booting 

local disk driver lodiiications 

OHNINET disk driver Bodifications 

Add tite out to OHNIHET shot I cowaands 

Hodified KacsBug interface 

Modified Apple S" floppy drivet 

Swap BACKSPACE and \ keys 

Hodified display dtivet 



File: CC.PRCH 

Date. 29.0et-«2 

By: L. Franklin changes by K. Ball 



Stag PROK checksaas: 



3b2F 



F310 



.e CC FROM TEXT 



Pdge 2 









include 


'CC PHOH.EQ' 
















, File. 


CC PEGU 


EQ.TEXT 






, Dite, 


28-Qct- 


82 


ocoacaoo 




PROK?efs 











,ROM»eis 




li 


GCO0O0O6 




FRGMlevl 




i 


0CG0C2C0 




RAhb4se 




$00000 


O&OOlCOu 




RAMien 




UOOQ 


COOOCjCO 




HArtkbt!u( 




RAKbaset$30i) 


GOOOCiuC 




RAMkblen 




$i00 


00020^00 




RAMBibag 




RAMbise*$400 


GGuOO?C-j 




RAHwksta 




RAKbase^$700 


iGGOICOO 




RAMend 




RAKbasetRAKLen 


GDCiiCuC 




ROKbase 




$10000 


ilOCCIflSo 




ROM i en 




$2000 


iCii.CSfl 




RuKend 




ROMbasetROMlen 












iOG;:sjc 




MISbAse 




$20000 


COOGZflSG 




HXBien 




52300 


GiGnCGC 




MISend 




MXEbase+MXBien 


CCO2OCO1 




KJBinit 




HXBbasef4 


GCCiOGGS 




MXBentry 




MXBbasefS 


GOG30aOQ 


lOPbase 




$30000 


G003CF00 




VIAbdse 




10Pbase^$OFOO 


OOGSOOSQ 


DSPbase 




$80000 


CSGOEGflfi 




DSPlen 




$OE0O0 


0Q08E000 




DSPend 




DSFbise+DSPiea 


OOQSEOflO 




USRbase 


eqa 


DaPend 






, Corvus 


CONCEPT Workstation i 












S00GGW&4 




iVUIi 






QflOGOOAS 




« IVI»12 






OCOGOOeC 




IV1»13 






00000073 




« IVlvH 






50CflOfl7<i 




iVI»I5 






OG0OG07S 




» IVifid 






GGOflOOVC 




iVUI? 







,PROH equates 



.Current PRGK version nuaber 
.TeBporary PROK version nciber '.'">"> 
(Current PRGK level number 

,Edse address ot low KAH 
.Length ot low RAH (4k bftes) 
, Start oi keyboard butter 
.Length ot keyboard buffer 
, Start of MACSBUG RAM 
, Start oi workstation RAM 
,£nd address * 1 of low RAM 

,8ase address of workstation PROM 

(Length of workstation PROK 

,End address * i of workstation FROH 

.Ease address of MACSBUG uf present) 
.Length of KACS6UG 
.End address f 1 of MACSBUG 
.Address of MacsBug init rector 
.Address or KacsEag entry vector 

.Base address ot 1/0 page 
.Base address of VIA registers 

.Base address of display buffer 

.Length of display buffer 

,End address t 1 of display buffer 

.Base address of user RAM 



.level i interrupt vector <SLOTS) 

.level 2 interrupt vector (OCl) 

.level 3 interrupt vector iGHNIKET) 

.level 4 interrupt vector (DCS) 

.level 3 interrupt vector (TIMER) 

.level i interrupt vector (XYDB) 

.level 7 interrupt vector 



0.5 

O.S 



?ag« 3 



(10000700 
00000701 

00000706 
00000707 
00000708 
00000709 

Q000070D 
0000070E 
0000070F 



00000714 
00000718 

00Ofl07ZG 

00000726 

00000730 
00000734 
00000736 
00000731 
00000737 
0000073A 
00000738 
0000073C 

00000740 
00000764 
00000766 

00000771 
30000772 
G0000773 
00000774 
00000775 

000006SO 
00000700 
OOOOOAOO 
OOOOOBOO 
OOOODCfiO 



97 
?S 
99 
100 
101 
102 
103' 
104 
IDS 
106 
107' 
108 
109 
110 
111 
112 
113 
114 
US 
116 
117' 
118 
119 
120 
121 
122 
123 
124 
125' 
126 
127 
128' 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143' 
144' 



Corvas CONCEPT Wotkstatton static RAM address definition 



CPbtslot equ 
CPblsrvt equ 

CFosslot equ 

CPossrfC equ 

CPosdif cqa 

CPosblk equ 

CPtpinbr equ 
CPdiskRC equ 
CPomiRC equ 



CPbikio equ 
CPdskio equ 



CPfinlv 

CPfdvsi 

CPfbps 

CPfspt 

CPflps 

CPfspd 

CPfofst 

CPityp 



equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 



CPwndrcd equ 
CPscnofs equ 
CPdspflg eqa 

CPslltyp equ 

CFsUtfp equ 

CPsl3typ equ 

CPsHtyp equ 

CPsIStyp equ 

CPosncaB equ 
CPsUraa equ 
CPsl2raB equ 
CFsl3[aB equ 
CPsMian equ 



RAMwkstafiOOO 
RAKwksta>$OOi 

RAHwksta^$006 
RAHwkstafiOO? 
RAHwksta^iOOO 
RAKwkstai$C09 

RAHwkstat$O0D 
RAHwkstatSOCE 
RAKwkstat$OOr 



RANwksta^$014 
RAKwkstafiOU 



CFuseilD equ RAHwkstat $020 



CFusernB equ RAMwkstat$0Z6 



RAKwkstaf$030 
RAnwksla^$034 
RAHwkstat$036 
RAKwkstaf$038 
RAHwkstat$039 
RAHwksta4$03A 
RAHwksta^$03B 
RAHwkstaf$03C 

RAKwksta4$040 
RAnwkstat$064 
RAnwksta4$066 

RAHwk3tafi071 
RAHwksta>$072 
RAnwkstaf$073 
RAKwkstafS074 
RAKv«ksUf$075 

RAMwkstatilSO 
RAMwkstatiZOO 
RAHwksta«$300 
RAHwkstat$400 
RAHwkstaf$500 



,(700-700) boot slot notbet 

,(701-701) boot server nuiber 

,(702-705) 

,(706-706) OS voiuie slot auabet 

,(707-707) OS voiuie setvet nuibet 

,(708-708) 03 voiuae drive number 

,(70?-7QB) OS voiuae block nuaber 

,(70C-70C/ 

,(70D-70D) OHNINET transporter nuaber 

,(70E-70£> disk conuoiler return code 

,(70F-70F) OMNINET return code 

,(710-713) 

;(7i4-717) boot disk bik \lo subr pointer 

,(716-718) boot disk i/o subr pointer 

,(720-721) user ID 

,(722-725) 

,v726-72r) user name aO bytes; 

,(730-733) floppy interleave table pointer 

,(734-735) floppy device sixe (blocks) 

,(736-737) floppy bytes per sector 

,(738-738) floppy sectors per track 

,(739-739) floppy tracks per side 

i(73A-73A) floppy sides per disk 

,i73B-73B) floppy first track offset 

,(73C-73C) floppy type 

,(740-763) systea window lecoid '.St bytes) 

,(764-765) bytes per dispUf scan line 

,(766-766) display flags 

,(771-771) slot device type lor slot 1 

,1772-772) slot device type for slot 2 

,(773-773) slot device type for siot 3 

,(774-774) siot device type tor slot 4 

,(775-775) siot device type tor siot i 

,(880-88F) statu RAH for OMNINET 

,(900-5FF) static RAM tor slot I device 

,(AOO-AFF) static RAh for slot 2 device 

i(BOQ-BFF) static RAK toe slot 3 device 

,(COO-CFF) static RAM for sioi 4 device 



Fd9e 



OOOOODOG 


146* 


CPiobuf 


equ 


RAMwksta«$600 


OOGOOFCO 


H7« 


CPstack 


eqo 


RAMwkstaf$800 , 


OOOOOfflO 


i48» 


CPenctt 


eqo 


RAHwk^t44$800 , 


SOOiOfOI 


149* 


CPsysst 


equ 


RAHwksta^seOi , 


COOOflFfC 


150* 
151* 


CPtstack 


equ 


RAHwkstatiBFC , 


0003DFD0 


152* 
153* 
154* 


CPoinibf 


eqa 


D5Fend-$30 












155* 










156* 
157* 
158* 


, Corvus 


CONCEPT Workstation FROM 


L'00!CC04 


CFsfsrst 


eqo 


ROI1biset$G04 


OOOIOOOB 


159* 


CPuniqid 


eqo 


ROHbase^$008 


ocoioaoc 


160* 


CProivrs 


eqa 


ROMbasetiflflC 


COGlOOOD 


161* 


CProBlvl 


eqo 


ROMbise^$00D 


uGO'.GOOE 


162* 
143* 


CFcksu* 


equ 


ROHbasetJOOE 


GOOIOCIO 


164* 


CFobootj 


equ 


ROMbasetSOlO 


OGulOOiZ 


165* 


CFoboot 


equ 


RO«biser$012 


uGGiOSU 


146* 


CFobikio 


equ 


ROHbasef$016 


oaciooiA 


U7* 

168* 

169* 


CPodskio 


equ 


ROMbisei$01A 


C0010{12J 


CPlboot] 


equ 


ROMbiset»020 


ilCOiOG22 


170* 


CPIboot 


eqo 


ROHbaset$022 


fl00i0C26 


171* 


CFiblkto 


equ 


ROHbiSe^»026 


sGoioaa 


172* 
173* 


CFldskio 


equ 


RCMbasef$02A 


fiOOiCCSO 


174* 


CPfboot] 


eqa 


ROHbaset$030 


0G010O32 


i75« 


CPfboot 


eqo 


ROHbaset$032 


C0C'iG03i 


176* 


CPfbUio 


equ 


ROHbase+$036 


GGOiflOSA 


177* 


CPfsctio 


tqu 


ROKbaseii03A 


C00ICC3E 


17£« 


CFfinit 


equ 


ROKbasef$03E 


00010042 


179* 


CPiblkio 


equ 


ROHba5e+$042 


COGlOG4o 


130* 


CPisctio 


eqa 


ROMbaset$046 


OOOIOOU 


181* 
i82» 


CPainit 


eqa 


ROMdase>$04A 


CJOiao50 


183* 


CPkbinit 


equ 


ROKbtset$050 


00010054 


184* 
185* 


CPkbgetc 


eqo 


RCKbdSef$054 


COOiOOdO 


186* 


CPdsinit 


eqo 


ROHbaset$060 


00010064 


187* 


CFdsputc 


equ 


RONbaset»064 


00G!G068 


188* 


CFdsputs 


equ 


ROMbase+$068 


OOOlOCiC 


189* 
190* 


CPdsc»uc 


equ 


ROKbasef$06C 



(DOO-EFF) I/O butiet (S12 bytes) 

(FOO-FFF) initial systea stack 

(F30-F00) eiteinai CRT flag 

<F01-F01) systea initiaiitation status 

(FFC-FFC) initial systei stack potater 

OMNINET drifer bufiei (48 bytes) 

(OMNiNET can't access below $80000) 



(10G04' systea testart pointer 

(10008) unique workstation 10 

(lOQOC) FROK version nuabet 

viOOOD) FROM levei nuaber 

(iOOOE) FROM checksua 

UOOIO) juap to OMNINET disk boot subr 

(10012) OMNINET disk boot subr poiniet 

(10016) OMNINET disk bik i/o sobr pointer 

(lOOlAi OMNINET disk i/o sobr pointer 

(10020) juap to local disk boot subr 

(10C22) local disk boot subr pointer 

(10026.' local disk bik i/o sobr pointer 

vl002A) local disk i/o subr pointer 

(10030) jump to tloppf disk boot subr 

(10032) floppy boot subr pointer 

(10036) Corvus tloppy bik i/o subr pointer 

il003A) Corvus floppy sector i/o sobr pointer 

(1003E) Corvus floppy initialization 

(10042) Apple floppy bik i/o subr pointer 

(10046) Apple floppy sector i/o subr pointer 

(1004A) Apple floppy ini tialiiation 

(lOOSO) initialise (reset) keyboard driver 

(10054) get a keyboard character 

(10060) initialixe display diivei 

(10064) display a character 

(10068) display a string 

(1006CJ convert character to upper case 



file; CC. PROM TEXT 



Fife 



00010070 
00010074 
00010078 
00010070 

cooiooeo 

00010084 
000100S8 



00030F61 
00030F71 



00000000 
OOOODOOi 
00000002 
0000G003 
OOC00004 
OOQOOOOS 



GOOOOSQO 
00000001 



00000032 
00000033 



192 
193' 
194 
195' 
194 
197' 
198' 
199 
2D0< 
201 
202 
203 
204 
20S 
20i 
207 
208 
209 
210 
211 
212 
213 
214 
21 'a 
2U1 
217' 
218< 
219 
220 
221 
2X2' 
223 
224 
225 
226' 



CPivecl eqa ROMbisei$070 ,(10070) level i mteiiupt vecior (SLGTS) 

CPi»ec2 equ ilOMbise+$074 ,^10074) level 2 interrupt vector vDCii 

CFivec3 equ ROKbise>$078 ,(10078) level 3 inteftupi vectot tOMlui^lT 

CFivec4 equ ROHbise*$07C ,aOC7C) level 4 intecrupt vector (DCC) 

CFivecS eqo ROHbise+SOSO ,(10080) level 5 interrupt vector {TIMER; 

CPiveci equ ROMbdse-f$084 ,00084) level 6 interrupt vectot tKYDB; 

CPivec7 equ ROMbisef$088 ,(i0088) level 7 interrupt vecioi 



, Cotvus COKCEFT Vorkstition I/O page deftnitions 

iObootsw equ VIAbase*$61 ,(30F6i) boot selection switches 
lObeepfq eqa VUbase^$71 i(30f7l) beep irequenc; 



Slot device t^pes (set in CFsiltirp. CFsUtyp) 



DTndev equ 

DTlocl equ 

DToini 

DTc8 

DTcS 

0T»5 



equ 
eqa 
equ 
eqo 



,no device 
, local disk 
.OKKIKET disk 
(Corvus 8' floppy disk 
iCorvus 5" floppy disk 
, Apple 5" floppy disk 



Kiscellaneous equates 



off equ 
on eqa i 



jumpto equ (4EF9 



DskRead eqa $32 
DskViit equ $33 



"jap" op code 



disk read conAand 
disk write comaand 



Page 6 



8000 




OOOG 


00000000 


GC04 


30Gi30B4f 


OOOS 


FFFFFFFF 


oooc 


GO 


300D 


Oi 


C00£ 


FFfF 


SCIC 


4EFy 


OOii 


CQ0l03FCt 


flOii 


GCOilioOt 


OOiA 


00311190. 


SOiE 


OCOO 


8020 


4EF9 


0022 


C001043S. 


002i 


OOOiOFeCt 


002A 


OOOliOS^t 


O&IE 


OOOC 


0C3S 


4EF9 


0032 


C00l04i4+ 


fiC34 


0001I44Ct 


0D3A 


00011444+ 


C03E 


0O0'il4DA+ 


0042 


00011656+ 


0046 


Q{ifllie7Et 


004A 


0OOllAf4+ 


C04E 


OCOO 


GGSC 


00010722+ 


0054 


000i87C0t 


0058 


OOflOCGOO 


005C 


00080000 



228* 
129* 
230* 
231« 
232* 
233* 
234* 
235« 
236* 
237« 
238* 
239* 
240* 
241* 
242* 
243« 
244* 
245* 
246* 
247* 
24S* 
249* 
250* 
25I« 
252* 
253* 
254* 
235* 
256* 
257* 
258* 
259* 
260* 
26 i* 
262* 
263* 
264* 
265* 



Corfus CONCEPT Worlslition FROM address »ectors 



org ROKbase 

dita.l 

data.i setup 

dita.l iFFFFFFFF 

data.b FRCMvers 

daa.b PROMlevI 

data.w SFFFF 

data w iuapto 
data.l SBoani 
data 1 OOblklO 
daia.i ODdsklO 
data.w 

data w iaapto 

data.l SBiocal 

data.l LDblklO 

data.l LDdsUO 

data.w 

data.w iDKpto 
data.l SBfip; 
data.! FDbUIO 
data.! FDseciO 
data.! FOinit 
data I AOblUO 
data.i ADseciO 
data.l AOinit 
data.w 

data.i KBinit 

data.i KBgetch 

data.l 

data.l 



(10003) initial stack pointer 

(10004) start of FROK code 
(10008) unique workstation ID 
uQOOC) FROK version nuaber 
(10000) PROM level nunbet 
(iOOOE) PROH checksuB 

(iOOiO) iuap to OMNINET disk boot sobr 

(10012) OMNINET disk boot subr pointer 

(10016) OMNIKET disk bik i/o snbr pointer 

(lOOlA) OMNINET disk i/o subr pointer 



(1G020) juap to local disk boot subr 

(10022) local disk boot subr pointer 

(10026) local disk blk i/o subr pointer 

(1002A) local disk i/o subr pointer 



(10030) juap to fioppj' disk boot subr 

(10032) tloppy boot subr pointer 

(10036) Corvus floppjr blk i/o subr pointer 

(1003A) Corvos floppy sector i/o subr pointer 

(1003E) Corvus floppy ini tialitation 

(10042) Apple floppy blk i/o subr pointer 

(10046) Apple floppy sector i/o subr pointer 

(i004A) Apple floppy initialitation 



(lOOSO) initialite (reset) keyboard driver 
(108S4) get a keyboard character 
(1C9S8) 
(lOOSC) 



File; CC, PROM. TEXT 



Uqt ? 



OO60 


OOOlOUEf 


00i4 


OOOlOfDSt 


mt 


00010?C4+ 


006C 


000109B44 


0070 


C0010i30« 


0074 


0GD10ilE4 


0078 


OGOiOiU^ 


007C 


000i0i04f 


8080 


OOOlOSFAt 


00S4 


OOOiOSESf 


0088 


OOOlOSEif 


008C 


00000000 



d4ti I DSinit 

dati.i DSputch 

d«ta.l Caputst 

diti.l OScrtvc 

diti 1 INTslot 

dAta.I IKTdci 

d«t«.I IKToini 

d«ti.l IKTdeO 

diti.I IKTlitr 

da la. I IMTkTbd 

data.! UTTifl? 

data.i 

list 1 



,(10040) lAitialite dispUj dtivet 

,(ia0&4) display a chatactei 

.(lOOil) dtsplaf a stting 

,<l00iC) convert character to apper case 

,(10070) level I interrupt vector (SLOTS) 

,(10074» level 2 interrupt vector (DCi: 

,(10076) level 3 interrupt vector (OKNINET 

,(10070 level 4 interrupt vector (DCO) 

,(20000) level S interrupt vector (TIKER) 

,(10084) level » interrupt vector (KYOB) 

,(10068) level 7 interrupt vector 
,(18010 



File. CC. FROM. TEXT 



Page 











289* 










29fl« 










291« 










292* 










293* 










294* 










295« 










296* 










297* 










298« 










299* 


30E4 


46FC 


2700 




300* 


00B8 


2E7C 


0000 


OFFC 


301* 
302* 
303* 
304* 


OOBE 


303C 


FFFF 




305* 


00C2 


51CS 


FFFE 




306* 


aoc6 


5iC8 


fFFE 




307* 


OOCA 


51C8 


FFFE 




308* 
309* 


OOCE 


2C7C 


00S3 


QFOO 


310* 


I10D4 


4i78 


OFOQ 




311* 


00D8 


1D7C 


0017 


090? 


3i2* 


SOCE 


1D7C 


CGOB 


OOOS 


313* 


00E4 


1D7C 


003E 


0027 


314* 


GOEA 


ID7C 


OOAB 


0025 


315* 


OOFG 


1D7C 


OflSE 


0047 


316* 


CQFi 


1D7C 


COAE 


0045 


317* 


OOFC 


1D7C 


0000 


007F 


318* 


3102 


1D7C 


3000 


G061 


319* 


0108 


lD7i: 


OOSO 


0067 


320* 


IIIOE 


1D7C 


0037 


0063 


321* 


0114 


1D7C 


0010 


0077 


322* 


GliA 


1D7C 


OOOF 


0075 


323* 


0121} 


1D7C 


OOAO 


0071 


324* 


012i 


4A2E 


OOCl 




325* 


012A 


102E 


0001 




326* 


012E 


102E 


0021 




327* 


0132 


1Q2E 


0041 




328* 
329* 



, iDitialiie Cotvus CONCEPT hardware 

i $30F7l - T2Ci 

S30F75 - shift register 
$3CF77 - aoi control register 
$30F«1 - CRTC pointer 
nflF83 - CRTC data 

; Kote that lower bytes are odd!' 



Setap 



Bove.w 
■0 ve . I 



•$2700, sr 
»CPistack,a7 



, set priority to 7, nsi interrupt only 
,set sfsteB stack pointer 



, delay for possible Apple floppy reset *kb 6/23/82* 

HOVE.V l$FFFF, 00 ,Hust wait at least 1 second 

Setapl DBRA DO, Sstupl 

Setup2 C8RA DO, Setup2 

SetQp3 DBRA DO, SetnpS 



Bove.i 
clr.w 
•ove.b 
BOfe.b 
BOfe.b 
■oveb 
Bove.b 

■OTS.b 
BOTtb 

Bore.b 
•ote.b 
■ore.b 
■ove.b 
Bove.b 
BOfe.b 
tst.b 
Bove.b 
Bove.b 
BOfe.b 



»VIAbase,a6 

CPeitcrt.w 

i$17,$07(a6) 

t$GB,iOS(a6) 

t$3E,S27(a6) 

f$AB,$!S(a6) 

t$3£,H7(a6i 

liAB.$4S<a6) 

t$00,$7F(a6) 

«$0G,$61(a6) 

l$8G,$67(a6) 

I$37,i63(a6) 

t$10.$77(a6) 

i$0F,$75(a6) 

t$A0,$71(a6) 

iCl(a6) 

$01(a6),dO 

$Zl(a6},dO 

$41(a6),dO 



0.5 
0.3 
OS 
O.S 
0.3 
0.3 



get pointer to VIA I/O locations 

reset systea flags (CPeitcrt, CPsysst) 

kybd control, 600 baud, 8 bit word 

kybd coBBand, no parity, no interrapts 

dcoaO control, 9600 band, 7 bit word 

dcoBO coBaand 

dcoBl control. 9600 band, 7 bit word 

dcoBl coBBand 

VIA port A 

VIA port B 

VIA data direction A 

VIA data direction B 

tree run shift register, counter 

syBBetrical wafe shape 

fairly low initial frequency 

turn off possible OHNINET interrupt 

clear keyboard data buffer 

clear dcoaO data buffer 

clear dcoBl data buffer 



File: CC. PROM. TEXT 



Pi9e f 



0134 
013C 
flUE 
0144 
014i 
014C 
014E 
0154 
OlSi 
015C 
OlSE 
0U4 
OUi 
OUC 
016E 
0174 



OlAl 
01A( 

oib; 

Si 

filBl 
OIBI 



0C2E 
6638 
QC2E 
6630 
0C2E 
6628 
0C2E 
6620 
0C2E 
6618 
0C2E 
6610 
0C2E 
6608 
0C2E 
6712 



003E 0027 

OOAB 002S 

003E 0047 

OOAB 004S 

0017 0007 

OOOB OOOS 

0080 0067 

0037 006S 



0176 303C fFFE 

017A S1C8 FFFE 

017E 08F8 OOOO OFOl 

0184 6100 0410 

0188 303C FFFE 

018C S1C8 FFFE 

0190 207C 0008 0000 

0196 227C 0008 EOOO 

01?C 6100 03F0 

107C OOFF 007S 



OlAfi 



207C 0001 OOOE 

227C 0001 2000 

6100 0320 

670A 

08F8 8001 OFOl 

6100 03D6 



331 
332 
333 
334 
33S 
336 
337 
338 
339 
340 
341 
342' 
343 
3441 
345 
346 
347 
348' 
349 
350' 
351 
352' 
353 
354' 
355 
356 
357 
358 
359' 
360 
361 
362 
363 
364 
365' 
366 
367' 
368 
369' 
370' 
371 
372 
373 
374 



Check Cocvas CONCEPT hardware (test 1) 
Vetfif ports ■aking no data accesses 
,dcomO control 
.$25(a6 
,i47(a6 
,i45<a6 
,{07(a6 
,S0S(a6 
,S67(a6 
,$6S(a6 



cmpi b M3E,i27(a6 

bne.s CHerr 

CBpi.b t$AB 

bne.s CKer 

cspi.b l$3E 

bne . s CHe r 

cMpi.b l$AB 

bne.s CHer 

cipi.b IS17 

bne.s CHer 

CBpi.b l$OB 

bne.s CHer 

CBpi.b l$80 

bne.s CHer 

CBpi.b #$37 

beq.s CKend 



CHerr aofe.w MFFFE.dO 

CHeril dbca dO/CHerrl 

bset IO,CFsTSst.w 

bst Flash 

CHend Bove.w l$FFFE,dO 

CKendl dbra dO.CHendi 

tore. I IDSPbase.aO 

Bove.i IDSPend.al 

bsr ZeroRaB 

BOTe.b l$FF,$75(a6) 



dcoBO coBBand 

dcoBl control 

dcoBl coBBand 

kfbd control 

kybd coBBand 

VIA data direction A 

VIA data direction B 



short delay betore error tone 

set test 1 failed flag 
* 

short delay before clearing screen 

i 

get pointer to start of display screen 

get pointer to end of display screen 

clear display screen 

turn off initial tone 



RoBTstl -- Check Corvus CONCEPT PROK (test 



RoBTstl Bove.l iCPcksuB.aO 

Bove.i tROMend.al 

bsr RoBTst 

beq.s RaBTstl 

bset ll.CPsysst.w 

bsr Flash 



get pointer to start of FROM 

get pointer to end of PROK 

check PROH 

FROM ok, go on 

set test 2 failed flag 



File CC. PROM TEXT 
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3771 


, RaaTstl -- 


Check Corrus CONCEPT static RAH (test 3) 




















01C2 


2C7C 


0000 


0703 




R4«Tsti 


•o»e. 


1 IRAHwksta.iO 


,4et pointer to start of RAH 


OiC8 


uoc 


031C 




380* 




bsr 


ValkBii 


,1$ RAH validt 


OICC 


660C 






381* 




bRC.S 


RTlerr 


,no, report errer 


OICE 


227C 


0000 


OFOO 


382* 




•OfC. 


1 tCPstackial 


,get pointer to end of RAK 
, (leave room for stack) 


ClD4 


6 ICO 


0342 




384* 




b$t 


March 


,i9 RAH valid? 


0iD8 


670A 






385* 
386* 




beq.s 


RaBTst2 


,fes> go on 


OIBA 


08F8 


0002 


QFOl 


387* 


RTleii 


bset 


l2,CF$rsst.w 


,set test 3 failed flag 


fllEfl 


UOO 


03B4 




368* 
390* 




bsr 


Flash 


;* 












, R4»Tst2 -- 


Check Corvos CCNCEPT dfnaaie RAH (test 4) 










392* 


, 








01E4 


207C 


C0Q8 


EOOG 


393* 


Ra&Tst2 


BOf«. 


i iUSRbase.aO 


iget pointer to start of RAH 


ClEA 


6100 


02 FA 




394* 




bsi 


ValkBtt 


,is RAH valid? 


SiEE 


UOA 






393* 




bnt.s 


RTZerr 


,no, report error 


OlFO 


UOd 


0372 








bit 


RaaSise 


;get dfnatic RAH sise (al = RAM site 


C1F4 


6iflO 


0322 




397* 




hi I 


Harch 


,is RAH valid? 


DIPS 


67aA 










beq.s 


HeaTest 


i;es, 90 on 


OifA 


08F8 


0003 


OFOl 


400* 


RT2err 


b$«t 


i3,CFsfsst.w 


,set test 4 failed flag 


3206 


4100 


03V4 




401* 
402* 
403* 




bsr 


Plash 


j« 










404* 


, MtaTest -- 


Check Coitus CONCEPT dynatic RAH (test 5) 










4 OS* 










82Q4 


6100 


C33E 




406* 


KeiTest 


bsr 


IncTest 


itest user dynaiic RAH 


0208 


470A 






407* 




btq.s 


NeaCir 


;no error, clear aemory 


(20 A 


08 F8 


0004 


OFOi 


406* 




bset 


«4,CPsrsst.« 


;set test S failed flag 


0213 


6100 


0384 




409* 




bst 


Flash 


;* 



File 
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412* 


















413» 


. KemCl 


r -- CI 


ear leaory 












414* 


i 








0214 


207C 


0000 


0400 


415* 


HeaClc 


■OTe. 1 


•RAHaibag.aO 


,get pointer to start ot RAM 


02U 


227C 


0000 


OEFE 


416« 
417* 




•ote. I 


•CFstaGk-2,al 


,get pointer to end of RAK 
(leate rooa ior stack) 


0220 


UOO 


036C 




418* 
419* 




bsr 


ZeroRaa 


;iero RAH 


0224 


207C 


QOOB 


0000 


420* 




aoie.I 


tDSPbase,aO 


,get pointer to start oi RAH 


022A 


6100 


0338 




42l» 




bsr 


RaaSixe 


,get dynaaic RAK site Ul = RAM sue J 


022E 


ilOO 


&3SE 




422* 
423* 
424* 




bsr 


ZeroRaa 


,tero RAM 










425* 


; SetHB 


-- Set MCSBUC RAM 












426* 










0232 


4in 


0002 


0004 


427* 


SetHB 


lea 


MXBinit.L.aU 


,is debug FROM present? 


0238 


43F9 


0002 


OOOC 


428* 




lea 


MXBbase^tC.L.j 


1 ,* init vector should = base i iC 


023E 


B3D0 






429* 




cspa . 1 


(aO),ai 


,« 


0240 


i602 






430* 




bne.s 


SetlntV 


,no, go on 


0242 


4E70 






431* 
432* 

433* 




}sr 


(aO; 


iinitialixe KACSBUG 










434* 


, SetlnlV - Set up interrupt 


vectors 










435* 


, 








0244 


207C 


GOOl 


0070 


436* 


SetlntV 


10 » ft. I 


fCFivecl.aO 


,get pointer to interrupt vector table 


02411 


227C 


0000 


0064 


437* 




■ove.l 


llVliU.al 


,get pointer to interrupt leclots 


02S0 


7006 






438* 




moveq 


t6,<IO 


,get nuaber of vectors to aove 


02S2 


22DB 






439* 


sun 


aove.l 


(aO)ti(an4 


,aove pointers to interrupt vectors 


02S4 


SICB 


FFFC 




440* 
441* 




dbra 


dO.SUIl 


,« 


02SI 


6100 


04C8 




442* 




bsr 


KBinit 


iinitialiie keyboard 


02SC 


6100 


0710 




443* 
444* 




bst 


DStnit 


.initiaiiie display 


02&0 


41FA 


03F8* 




445* 




lea 


asgl.aO 


.aesg - "Cotvus CONCEPT Iniiialiiat ion 


0264 


6100 


0760 




446* 




bsr 


DSputst 


, output aessage 


0260 


41FA 


FE26^ 




447* 




lea 


■sgcpT.aO 


,aesg - copyright notice 


Q26C 


6100 


0758 




448* 




bsr 


DSputst 


.output aessage 


0270 


41 FA 


040Ei 




449* 




lea 


as 92. a 


;aesg - carriage returns 


0274 


6100 


07S0 




4S0* 
451* 




bsr 


DSputst 


.output aessage 



file. CC PROM. TEXT 
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0278 2A7C 0030 0771 

027E 227C 0003 0200 

0284 7C01 

C28i 122? 0001 

028A E189 

026C 1229 0003 

0290 E189 

0292 1229 OOOS 

0296 E189 

0298 1229 0007 

029C 1429 0009 

02A0 E18A 

02A2 1429 OOOB 

G2Ai £18A 

02A8 1429 3000 

02AC EISA 

02A£ 1429 OOOF 

C2Bi 4A39 0003 9rrf 

fl2B8 B2BC A920 A9GQ 

02BE 6614 

02C0 E4BC A903 A93C 

02Ci 660C 

G2C6 6100 0DB8 

02CC 6D34 

G2CE IBSC 0001 60Fr 

G2D4 B2BC A220 AOGO 

0:DA 660E 

02OC B4BC A203 8&3C 

02E2 6606 

fl2E4 IBBC OOOS 60FF 

02EA B2BC 434F 5256 

02F0 661A 

02F2 B4BC SSS3 3031 

02F8 6612 

02FA IBEC 0003 60FF 

0300 600A 

0302 08F8 OOOS OFOi 

0308 6100 028C 

S30C D2FC 0200 

0310 S246 

G312 BC7C 0004 

0316 6F00 FF6E 



SiotID " Ciaiine slots for known devices 



SlotIO lovea.! tCFsiltypii5 

tovea.l •$ 30200, al 

toveq II, d6 

SlotlOl Bove.b OKaU.dl 

Isi.i 18, di 

lore.b 03(al),dl 

Isl.I 18, dl 

Bove.b OS(al).dl 

IsI.I 18, dl 

■ore.b 07(al),dl 

■ove.b 09(al),d2 

Isi.i 18, d2 

Bove.b ii(an,d2 

isl.l 18, d2 

Bovc.b 13(aV),d2 

isl.l «8.d2 

•ovt.b lS(al),d2 

tst.b $3?FFF.L 

op.i l$A?20A900,dl 

bae.s SlotlOl 

cap. I i$A983A93C,d2 

boe.s SiotI02 

bsf LOsfnc 

bit.s SioilDS 



■ofe.b •OTIoel,-l(aS.d6)iset device type 



get pointer to slot types table 

get pointer to slot 1 interface PROH 

get indei for slot 1 

get interface proa code (lOi 



get interface proa code (ID) 



disable interface RAM 

is tills a local disk? 
no, cbeck neit device 
IS this a local disk? 
no, check neit device 
syne with local disk 
bypass slot if disk did not respond 



SlotI02 cap.! •}A220A000,di 

bne.s SlotID3 

cap.! •$A203863C,d2 

bne.s SlotI03 

aove.b tOTaS.-HaS.di) 



SiotID3 cap. I 


I'CORV.dl 


bne.s 


51olID9 


cap. I 


l'USOr,dZ 


bne.s 


SlotI09 


aove.b 


IOTc8,<l(aS,d6) 


bra. 5 


SIotID9 


SlotlOl bset 


IS.CPsysst.w - 


bsr 


Flash 


SlotI09 adda.w 


t$20Q.al 


addq 


11. d6 


eap.w 


14. d6 


ble 


SIotlDl 



is this an Appie floppy? 
no, check neit device 
( 

no, check neit device 
set device type 

is this a Corvos floppy? 

no, cheek neit device 

t 

BO. check neit device 

set device type 

check neit slot 

set test 6 failed flag 



opdate interface FROM pointer 
update slot nuaber 
have we looked at all slots? 
no, cheek neit slot 



Filr. CC.FROH.TEXT 
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03U 7020 

031C MOO ODCS 

0320 mi 

0322 ilC7 070D 

0324 7002 

0321 1207 

032A UOO OOBA 

032C 0C07 OOCO 

0332 iiOC 

0334 08F8 OOOi OFOl 

033A ilOO 02SA 

fl33C iOlA 

0340 207C 0008 EOOO 

0344 lOBC OOFF 

034i 7401 

034C 7A33 

034E 7CFF 

03S0 6100 0E3E 

0354 7A32 

03Si ilOO 0E38 

03SA 11C7 0701 

03SE mi 

8360 1B7C 0002 0004 



■oviq 


llnitOp.dO 


bft 


ODcoBnd 


bits 


SlotlDb 


AOfl.b 


d7,CFtptnbr 


Auviq 


OEchoOp.dO 


Bove.b 


d7,dl 


bsi 


ODcoand 


CApi.b 


lEchocd.d? 


bni.s 


SlotlOa 


bitl 


l6.CFsfsst.« 


bsr 


FUsh 


btt.s 


SlotlDb 


SlotlDi AOVt.l 


OUSRbase.iO 


•orc.b 


•$FF.(aO) 


■oTcq 


11, d2 


■ofeq 


♦$33, d5 


•oicq 


8-1, d4 


bsr 


QDdsklO 


•Ofeq 


8(32, dS 


bsr 


OOdsklO 



SlotlDb aovc.b d?,CFbtsiTt .w 
blt.s RptSiat 
•ore.b 8DToAni,4(iS) 



.get OMNINET Tiinspoitei Doabei 
c 

if eitot, go on 
s*ft OHNINET Ttinspottet nuabei 

,is OKNINET TiAnspoitet nuibet m use? 



no, go on 

set test 7 fiii«d tiig 

« 

bypiss disk setvei broidcist 

send btoidcast message to disk setter 

* in Older to get disk server 

* Titnsporter nusber 



Sivc boot server nuaber 
if error, go on 
set device type 



File CC FROM TEXT 
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, RptSt 


at — Report results of 


systei initiaiiiation tests 


















03et 


7 200 






RptStat 


Auveq 


10, dl 


, initialise test noaber 


0368 


4A38 


OFfll 






tst.b 


CPsysst .w 


,any sjstea errors? 


u36C 


6608 








bne.s 


RptStl 


,yes, report thea 


03it 


4iFA 


0396f 






lea 


as932,a0 


,aesg - All systea tests parsed 


0371 


61G0 


0632 






bsr 


DSputst 


.output aessage 










' 


bias 


RptStS 


.output carriage returns 


0376 


0338 


CFfll 


RptStl 


btst 


di,CFsysst.w 


,drd current test pass? 


03 7 H 


671 A 








boft s 


Rptsi: 


,yes, go on 


037i: 


41F(( 


C37H + 






iea 


BS933,«0 


.aesg - Systea test 


a 3 so 


GlOG 


0&44 






bst 


DSputst 


.output aessage 


0384 


1201 








■ove b 


dl.dO 


.get test nuaber 


0386 


0600 


0031 






addt.b 


I$31,d0 


,« 


C38A 


4100 


064C 






bst 


DSpotch 


;output test nuaber 


03 8£ 


4iFA 


036F + 






lea 


BsgSi.aC 


.aesg - tailed 


0392 


6100 


0632 






bsr 


DSputst 


.output aessage 


0396 


5241 






RptStZ 


addq 


fi,di 


increaent test nuaber 


03 9 8 


B2 7C 


0007 






cap w 


#7,dl 


.finished with ail tests? 


039C 


orD8 








ble.s 


RptSti 


,no. process nest test 


G39E 


41FA 


flZEOt 




SptStS 


lea 


Bsg2,a0 


.output carnage returns 


03A2 


6100 


0622 






bsr 


DSputst 


,« 


03A6 


1D7C 


OaOF 0075 






Bofe.b 


t$0F,$75iai) 


.syaaeiricai wave shape 


03 AC 


iD7C 


OOAO 0071 






■ore.b 


•$A0,571(ao) 


;output a low pitch tone 


Q33: 


303C 


FFFE 






Bove.w 


I$FFFE,qO 


.short delay 


03 Bi 


3iC8 


FFFE 


563* 


RptSl? 


dbia 


dO,RptSt9 


,« 


03BA 


iD7C 


aOFF 0075 


564» 




aofe.b 


l$FF,$7S(a6) 


. turn oft tone 



File: 


CC. PROM. TEXT 










Page 15 










567* 


















568* 


, SelBo 


ot — Select boot type 












569* 


i 








Q3C& 


1039 


C003 


0F6i 


570« 


SelBoot 


love b 


lObootsw L,dO 


get boot selection switches 


03Ci 


0240 


OOCO 




571* 




andi w 


liCO.dO 


* 


03a 


6700 


008A 




572* 




beq 


SBuser 


00 - uset select 


03CE 


OCOO 


0040 




573* 




CBpi b 


H40,dO 




0302 


6734 






574* 




beq.s 


SBlocal 


Oi - local disk boot 


0304 


OCOO 


0080 




575* 




cspi b 


t$80,d0 




0301 


6722 






576* 




beq.s 


SBoBni 


02 - uHNINET disk boot 


03DA 


6038 






577* 
578* 




bra.s 


SBClpT 


03 - floppy disk boot 


fl30C 








579* 


SBdebug 








03DC 


41F9 


0002 


0004 


580* 




lea 


MXBinit.L.aC 


«lcb is debug PROK present ' 5 


03E2 


43F9 


0002 


OOOC 


581* 




lea 


KXBbase«iC.L,al 


*lb changed lest to sane is in j 


03EB 


B3D0 






582* 




cttpa. i 


(a0},al 


*kb SetKB init proB Q 5 


03EA 


666A 






583* 




bne.s 


SBasec 


no. ask user tor boot de»ice 


03EC 


41FA 


02A7* 




534* 




lea 


Bsq4,a0 


Besg - KACSEUG IfO on DataComB Go 


O3F0 


6100 


95D4 




585* 




bst 


CSptttst 


output Bessage 


fl3F4 


2079 


0002 


0008 


586* 




aovea.I 


MZBentry.L.aO 


»icb yes, go to debugger 5 


03FA 


4ED0 






587* 
588* 




J»P 


(aO) 


«kb 5 


03FC 


41FA 


0203 + 




589* 


SBoini 


lea 


Bsgll.aO 


Besg - OMNINET disk boot" 


0400 


6146 






590* 




bSf .5 


SBBsg 


output Bessage 


0402 


6100 


0CC8 




591* 




bsr 


Oboot 


load OS boot code 


fl40i 


603E 






592* 
593* 




bra.s 


SBboot 


transfer control to boot code 


0408 


41FA 


02CF+ 




594* 


SBUcal 


lea 


asql2,a0 


Besg - "Local disk boot" 


040C 


613A 






595* 




bst.s 


SBBS9 


output Bessage 


040E 


6100 


OAEA 




596* 




bsc 


Lboot 


load OS boot code 


0412 


6032 






597* 
598* 




bra.s 


SBboot 


transfer control to boot code 


0414 


41FA 


02C9+ 




599* 


SBflpy 


lea 


BsgU.aO 


Besg - "Floppy disk boot" 


0416 


612E 






600* 




bsr.s 


SEBsg 


output Bessage 


041A 


227C 


0000 


0771 


601* 




aovea.I 


tCFslltyp.al 


get pointer to slot i type 


0420 


7001 






602* 
603* 




Boveq 


11, dO 


get initial slot nuaber 


0422 


1231 


OOFF 




604* 


SBflpfl 


Bove.b 


-l(al<dO),dl 


get device type 


042i 


OCOl 


0003 




605* 




capi.b 


#DTc8,dl 


is this a Corvus floppy disk interlace? 


042A 


6710 






606* 




beq.s 


Se{Ipr2 


yes, use it for booting 


042C 


OCOl 


0005 




607* 




CBpi.b 


IDTaS.di 


is this an Apple floppy disk inteitace? 


3430 


6710 






608* 




beq.s 


SBflpyS 


yes, use it for booting 


0432 


5240 






609* 




addq 


11. dO 


tipdate slot nuaber 


0434 


B07C 


0004 




610* 




CBp.W 


14, dO 


have we looked at all slots? 


0438 


6FE8 






611* 




ble.s 


SBfipyl 


no, check neit slot 


043A 


60SC 






612* 
613* 




bras 


CoToBtl 


output error aessage 



fiqt U 



043C 


6100 


OFDO 


G440 


40S4 




34 4! 


6100 


13D0 


0446 


604E 




S448 


6100 


057C 


044C 


41FA 


0298 


3450 


6100 


0574 


04:4 


4E75 




0456 


41 FA 


025A 


045A 


610C 


C56A 


045E 


6100 


0340 


0462 


6100 


0550 


04o4 


IFflO 




Q461 


6iOG 


054E 


fl46C 


70flD 




046E 


6103 
iClF 


0548 


0474 


OCOO 


0044 


0478 


6700 


FF42 


047C 


OCOO 


0046 


0480 


6792 




0482 


OCOO 


004C 


0484 


6700 


FF83 


048A 


OCOO 


004F 


04 8E 


6700 


FF4C 


0492 


6000 


FC2fl 





SBfip;2 bsr 


Fboot 






bras 


GoToBt 












3BfIpy3 


bsr 


Aboot 




SBboot 


bri.s 


GoToBt 












SBBsg 


bsr 


DSputst 






lea 


KsgH.aO 






bsr 


DSpatsl 






rts 














SBuser 


lea 


BsglO.aS 






bsr 


DSpotsi 






bsr 


KBqetcb 






bsr 


DSc»tUC 






■ove.b 


dQ,-(sp/ 






bsi 


OSputch 






■o?eq 


«DSCcr,d0 






bsr 


DSpatch 






aove.b 


(sp)f,dG 






capi.b 


I'D'.dO 






beq 


SBdebag 






cipi.b 


l'F',d6 






beq.s 


SBflpy 






c&pt .b 


I'L'JO 






beq 


SBlocal 






CBpl b 


t'O'.dO 






beq 


SBoani 






bu 


Setap 











lioad OS boot code 

.transfer control to boot code 

,load OS boot code 

.transfer control to boot code 

.output lessage 
.■esg • "disk boot" 
.output Bcssage 
.return 

■esg - "Select boot device" 

output aessage 

get reply 

convert character to upper case 

save reply 

echo reply 

output carriage return 

restore reply 

debug? 

yes. do it 

Corvus floppy boot? 

yes. do it 

local disk boot* 

yes, do it 

OMNINET disk boot? 

yes. do it 

no. start over again 
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iU* 
















447« 


CoToBt -- Transfet control to boot code 








i4l» 
















449* 




Enter; 


AO.L = Boot cc 


de entry point pointer 








450* 
















451* 




Values 


passed in registers to the boot ace 








452* 
















453* 
454* 
















DO 


; low user RAH address 










455* 
454* 
















Dl 


1 high 


user RAH address 










457* 
458* 
















02 


; low 


iser RAH address 


sane as DO) 1 








459* 
440* 
















D3 


i high 


user RAH address 


same as Dl) 








441* 
442* 
















04 




i 


! boot slot ; boot servei l 








443* 
444* 
















05 






. 








445* 
444* 
















04 


; 




. 








447* 
44B* 
















i D7 


j 




G i 








449* 
470* 
























049« 


6C0C 




671* 
472* 


CoToBt 


bge.s 


GoToBt2 


go on it no boot load error 


0491 




OlE?^ 


473* 


CoToBtl 


lea 


Bsg3,a0 


mesg - "Boot error" 


049C 




0S2a 


474* 




bsr 


DSputst 


output message 


04 AO 




FFB4 


475* 
474* 




bra 


SBuser 


select boot device again 


04A4 




OOBE 


477* 


C0T0BI2 


bsr 


RasSiie 


get dynaiic RAH sixe Ul = RAM sire) G 


04At 




0009 0000 


478* 




ctpa . 1 


t$90000,al 


are we in PROM? 


04 AE 






479* 




bne.s 


CoToBt3 


yes, go on G 


04B0 




024E 


480* 
481* 




lea 


CPbtslot.al 


set RAH siie to protect code Q. 

G. 


04B4 




OOOS EOOO 


482* 


&oToBt3 


Bove.l 


8USRbase,dO 


00 - low user RAH address 


04BA 






483* 




■ovel 


al.dl 


Dl - high user RAM address 


04BC 






484* 




move. I 


d0,d2 


02 - low user RAH address 


04BE 






485* 




•ove.i 


dl,d3 


D3 - high user RAM address 


04C0 






484* 




clr.l 


d4 


04 - 


04C2 




0700 


487* 




AOfe.b 


CPbtslot.w,d4 


D4 - boot slot 


04Ci 






488* 




Isl.w 


18, d4 




04CI 




0701 


489* 




love.b 


CPbtsrvr.w,d4 


04 - boot slot/boot server 


04CC 






490* 




clr.l 


d5 


D5 - « 


Q4CE 






491* 




clr.l 


d& 


04 - 


04D0 






492* 




clr.l 


d? 


D7 - 


04D2 


4 EDO 




493* 
494* 




j«p 


(aO) 


enter boot code 



Pige 18 









696* 


















6V7» 


, RomTst — Compute cbecic 


;uB t 


or PROM 








698« 




(FROM checksua is 


included m address ran 








i99t 


















700* 




Enter 


AO.l 


PROK 


start pointer 








701» 






ALL 


PROM end pointer 








702« 


















703« 




Eitt. 


EG 


PROM 


checksoB talid 








704» 






NE 


PROM 


checksuB error 








705« 












fl4D4 


2446 




706* 


Ro«Tst 


ao*e. I 


iCaZ 




.get starting address 


u4D6 


4240 




707« 




clr .w 


dO 






0^D8 


321A 




708* 


RTl 


Bove.w 


U2}f,dl 




, 


04DA 


B340 




709* 




eor .w 


dl.dO 




; 


54DC 


35 C? 




710* 




CBpa.I 


ai.iZ 




, 


04DE 


6DF8 




711* 




bits 


RTI 






34EC 


EG7C 


FFFF 


712* 




CBP.W 


i$FFrF.dO 






04E4 


4E7;. 




713* 
714* 
715* 




rts 






; reiorn 








716* 


, VaikBit -- Vaiking ones 


and 


xeros 








717* 


















718* 




Enter: 


AOL 


RAM 


start pointer 








719* 












iUi 


2448 




720* 


ValitBi 


io»e. i 


aQ,a2 




,get starting address 


fl4SI 


2248 




721* 




BOfe.l 


aO.al 




.get ending address 


04EA 


B3FC 


GOQC OOU 


722* 
723* 




addi.l 


l$10,al 




, « 


fi4FG 


303C 


FFFE 


724* 


VBl 


■0 ( e . w 


l$FFFE,dC 






{i4F4 


3480 




725* 


VB2 


■o»e.w 


dO,(a2) 






i<iU 


B052 




726* 




c«p w 


U2),d0 






fl4F8 


661C 




727* 




bne.s 


VBerr 






C4FA 


tSia 




728* 




loi 


«l,dO 






a4FC 


65F6 




729* 
730* 




bcs.s 


VB2 






04FE 


3C3C 


0001 


731* 




■ove.w 


t$0001,dO 






0502 


3430 




732* 


VB3 


Bove.w 


dO,(a!) 






0504 


B052 




733* 




cip.w 


(a2),d0 






G506 


66GE 




734* 




bne. s 


VBeit 






0508 


E340 




735* 




asl 


tl.dO 






G50A 


64F6 




736* 
737* 




bcc s 


VB3 






550C 


D5FC 


0OG3 0002 


738* 




adda.l 


12, a2 






0512 


B5C9 




739* 




CBpa.I 


ai,a2 






5514 


tBDA 




740* 
741* 




bits 


WBl 






05U 


4E75 




742* 
743* 


VEecr 


Its 






.return 
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0S16 244B 
OSU 4280 



8S1C 34C0 
OSIE BSC9 



0522 3400 

0324 4642 

0S2i 3222 

0S2I B240 

0S2A 6Ui 

0S2C 3482 

0S2E BSC8 

0S36 iiF4 

0S32 3002 

0534 4642 

0S36 3212 

0S38 B240 

0S3A (606 

053C 34C2 

0S3E BSC9 

0S4O 66r4 



I* . 

I* , Much - 






J* , 
* 1 

t ■ 


Enltr: 


AO.L s KM stirt pointct 
ALL > RAM ena pointer 


« Mjrch 


■oie.l 


iO , il 


« 

• 


cli.l 


dC 




• KRl 


aov«.w 


d0,u2)f 




>» 


Ckpi.I 


»l,a2 




« 


bne.s 


HRl 




« 


•ove.w 


d0,d2 




« 


not.w 


d2 




• HR2 


MVC.M 


-<i2),dl 




« 


ctp.w 


dO.dl 




» 


bne.s 


HReit 




« 


■ovc.w 


d2.(42) 




« 


cipi.i 


i0,i2 




* 
• 


bne.s 


HR2 




* 


■oie.w 


d2,d0 




« 


not.w 


d2 




« MR3 


tofe.w 


(a2).di 




« 


cap w 


dO.dl 




* 


bne.s 


HRett 




« 


toie.w 


d2.u2)^ 




1» 


capi . 1 


dl.a2 




« 


bne.s 


MR3 




« MReri 


rts 




tetmn 
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0S44 2448 

0S4i 323C 0101 

G54A 34C1 

054C E359 

554E B5C9 

C5S0 6DFS 

0551 2448 

IISS4 3Z3C CiOl 

£552 B2SA 

CS5A 0^06 

flSiC E359 

05 it B5C) 

GSqG iDFi 



779* i 






780« . IncTest - 










782* ; 


Eittei; 


AO.L 


783* 1 




ALL 








7SS* IncTes 


■otei 


«0,a2 




■o»e.w 


•$101, dl 








788* ITOl 


»o»e.w 


dl.(a2)* 




rol.w 


• l.dl 




capa . 1 


al.a2 




bits 


ITOl 










Mve.l 


a0.a2 




&ove.«r 


tSlOI.dl 








794* 1702 


cap.w 


(a2)«,dl 




bne.s 


IT99 




rol.w 


«i,dl 




cup* . I 


al,a2 




bits 


ITO* 








802* 1199 


rts 











3 RAH stait pointet 
: RAH end pointer 
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RimSite — Cct end of as«t HAK pointer 
Citt: ALL ' RAK end poistet 



0S& 
057 
0S7 
057 
057i 

osb: 

0S8i 



0000 
2000 



227C 0009 

0Cf7 OOOi 

iElA 

23FC OOOF FFFC 

OOOF FFFC 

23FC OOOB FFFC 

OOOB FFFC 

2279 OOOF FFFC 



0S8E 4298 

0590 B1C9 

0592 iFFA 

0594 4E75 



flS9i 4BE7 

0S9A 227C 

CSAO 2C7C 

OSAi 1D7C 

05AC 1D7C 

0SB2 207C 

0SB8 4658 

OSBA 81C9 

OSBC iDFA 

05BE 207C 

0SC4 4658 

0SC6 B1C9 

0SC8 6DFA 

OSCA 303C 

8SCE SICB 

05D2 1D7C 

0SD8 303C 

05DC SiC8 

OSEO 4CDF 

0SE4 4E7S 



80C2 

0008 DFDO 

0003 OFOO 

OOOF 0075 

0040 0071 

0008 0000 



FFFE 

FFFE 

OOFF 0075 

FFFE 

FFFE 

4301 



805* , 

106* 

807* 

808* 

809* 

810* RiftSite aovc.i §$90000. il 

8U* CMpi.l 8R0Hend.(sp) .ate we in FROM? 

812* bqt.s R«BSit9 ,no, letQin 

813* Mfe.l OSFFFFCiFFFFC. L, get ictuil RAH site 



814* 

815* 
816* 
817* 
818* 
019* 
620* 
821* 
822* 
823* 
824* 
825* 
826* 
827* 
828* 
829* 
830* 
831* 
832* 
833* 
834* 
835* 
836* 
837* 
838* 
839* 
840* 
841* 
842* 
843* 
844* 
845* 
846* 
847* 
848* 
849* 
850* 
851* 
852* 
853* 



love.i OSBFFFCtBFFFC.L.* 
BOfe.l tFFFFC.L.Al ,* 

R«aSic9 Its ,;etucn 

ZeieRat — Hofe 8 to RAH subcoutine 

Entei. AOL s RAH statt pointer 
AIL s RAH end pouter 

ZeroRai clt.I (A0)« 

capi.l «l,aO 

ble.s ZeroRaa , 

rts .return 

i Flash — FUsti dispiaf screen sobrotttiae 

Flash soveal aO-<l/a6/dO,-(sp>,save registers 

•ofe.l tDSfend-$30,al iget pointer to end oi display screen 

■ove.i IVIAbase,a6 iget pointer to VIA I/O locations 

Bofe.b t$0F,nS(a6) .syuetrical wate shape 

■ove.b l$40.i7Ha6) .ovtpat a high pitch error tone 

FLl ■owe. I IDSPbase.aO iget pointer to start of display screen 

FL2 not.w (aQ)f 

capa.l al.aO 

blt.s FL2 

■ove.l ODSPbase.aO 

not.w (aQ}f 

capal al.aO 

blt.s FL3 

love.w l$FFFE.dO 

dbra dO,FL4 

aofe.b t$FF.S75(a6) 

lote.w t$FFFE.dO 

dbra dO.FLS ,* 

ROfea.l (sp)t,aO>aUa6/dO. restore registers 

tts .retorn 



FL3 



FL4 



FL5 



.get pointer to start of display screen 



.short delay 



turn off initial tone 
short delay 
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855* , 

t5i* > INTIvl? •- process ietei 7 interrupt (ignore interrapt) 

857* , 
SSEi 4E73 858* INTlTi7 rte .return froi interrupt 

859* 

860* .. 

861* , IKTkybd — process XEyBOARO interrupt (ignore interrupt) 
. 862* . 
0SE8 0C3? 0092 0003 863* INTkTbd ori.b l$02.$30F0S. L .ivl 6 (KYBO) - turn of f recf interrapt 
05E£ flF03 

OSrc G23? 0QF3 0003 864* andi.b l$r3,$30FOS.L .Ivi 6 (KYBO) - turn off »it interrupt 
OGFi SF05 
CSF8 4E73 865* rte .return froi interrupt 

866* 

867* . 

868* , INTtisr — process TIKER interrupt (ignore interrupt) 

869* ; 
CSFA 13FC GOrr 0003 870* INTti>r love.b f$7F.$30F7O.l .IvI 5 (TIHER) - turn off VIA interrupt 
0600 0F7D 
0602 4E73 871* rte .return from interrapt 

872* 

873* . 

874* , INTdcO — process DATACOflHO interrupt (ignore interrupt) 

875* , 
3604 3039 0002 0003 876* INTdcC ori.b l$02. i30F2S. L .Ivi 4 (DCO) - turn off recr interrapt 
&60A 0F25 

S6ac 9239 00F3 8003 877* tndi.b l$F3.$3dF2S.L .Ivl 4 (OCfl) - turn off »it interrapt 
0612 0F25 
6614 4E73 878* rte .return froa interrapt 

879" 

880* , 

Hi* ; INToani — process OHNINCT interrapt (ignore interrupt) 

882* . 
9616 4A39 0083 OFCl 683* INToani tst.b $30FC1.L iUl 3 (OHNINET) -reset interrapt 
OoiC 4E73 884* rte ;retuTn froa interrapt 

885* 

886* . 

887* ; INTdcl — process DATACOHHi interrupt (ignore interrupt) 

888* , 
G61E 0039 0002 0003 889* IKTdd ori.b l$C2.$30F4S.I. .ivi 2 (OCl) - turn off recf interrapt 
0624 SF45 

0626 0239 00F3 0803 890* indi.b •$F3.$3QF4S.L ,Ifi 2 (OCi) - turn off lait interrupt 
062C 0F45 
062E 4E73 89i* rte .return froa interrupt 

892* 



file. CC. PROM. TEXT 



0&30 




80B0 


Oi34 




0003 


U2k 






0&3C 




0007 


Ci4l) 






0642 


4CDr 


Old 


UH 


4E73 





894* , 

8?5« , INTslot -- piocess SLOT intettupt (ignore inteitupt-' 

896* . 

897* INTslot AOve.B.i DO/XO,-vSP' 

898* ie* $35r7F.L,A0 



899* 



aove.b (AG/. DO 

bchg 17, DO 

Bove b CO,(AO) 

Boveil (3F;t,DG/A0 
(te 



90l« 

902* 

903« 

904* , 

903* ; SlotAdr -- cospute slot addtess qiven slot naaber 



,s^9e registers 

,get pointer to port A ORA 

,read port A w/o handshake 

.toggle IG! 

, write new IQl 

.restore registers 

i return iron interrupt 



60030100 































0003 


0100 




















4E75 







Enter. D&.B - Slot nanbec 
Eiit: ALL - I/O port address 



$30100 



907* , 

908* , 

909* , 

910* , 

911* SlotPtr equ 

912* 

913* SlotAdr BOfe.l d6,-(sp) 

914* eit.w ii 

915* Isl.w «S,d6 

9U« love.l tSlotPti.al 

917* adda.w di.al 

916* BOfe.l (5p)f,d& 

919* rts 

920* 



address of slot S (non-eiistant ) 



save register 

coBpute disk port address icr slot 



restore register 
return 
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0^5A 
065C 
0664 
SicC 
0474 
fl67C 
0680 
S6S3 
OUB 
0693 
0695 
fl69C 
26A4 
06AC 
06B2 
C6EA 
06C2 
06CA 
OoDl 
060? 
06 OF 
06E6 
06EE 

06 Ft 
06FA 
floFF 
0707 
0708 
0710 
0718 

07 20 
0721 



OD OD 

43oF72767573iG43 

4F4E434SS0S42049 

6E697469616C697A 

6174696F6E202028 

30 2E36 29 

OD OD 03 

426F6F742Q65727; 

6F722G2E2E2E2E0D 

OC fiO 

OC 3D 4D4143S342 

5'j472fl492F4F206F 

6E2C44617461436F 

6D6D20300D 00 

S36S6C6S63742062 

6F6F742S646S7669 

63652028442C462C 

4C2C4F293A2000 

4F4D4E494E455400 

4C6F63sl6C00 

466C6F7fl7C7900 

206469736B20626F 

6F740C 00 

537?7374656D2fl74 

6573742000 

2{)666I696C6Si40O 

00 

416C6C2073797374 

6560207465737473 

20706173736S640O 

CO 

CO 



922* isgl d«ti.b OSCct,OSCci 

923* data b 'Corvus CONCEPT Initialixation 



924* data.b PRCNvers4$30, ' . ' ,PROKIevU$30, ')' 

925* ■sg2 data.b OSCct,OSCct,0 

926* isgS data.b 'Soot error ' ,OSCct.DSCci|G 



927* »sg4 data.b DSCcr.OSCcr, KACSBUC I/O on DataCou 0' .OSCcr,0 

928* isglO data.b 'Select boot device {O.F.l.O): ',0 

929* asgll data.b 'OHNINET' J 

930* tsgi2 data.b 'Local'. 

931* tsgn data.b 'Floppr'.O 

932* isgl9 data.b ' disk boot' ,DSCcr,0 

933* Bsg30 data.b 'Systei test 'J 

934* BsgSl data.b ' failed' .DSCcrJ 

935* Bsg32 data.b 'Ail sjfsten tests passed' ,DSCci,0 



936* data.b 
937* 
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00000000 
00000002 
OOOOOOOi 
OOOOOOOA 
OOOOOOOC 
000O00F4 



00000000 
00000001 
00000002 
00000003 
00000004 

ooooooos 



6000007F 
OOOODOFE 
OOOOOOFD 
OOOOOOFC 
OOOOOOFF 



600000U 
0000007A 
0000003F 



incUde 'CC.PROn.KB' .keyboird diivei 

File. CC.PRON.KB 
Date. 29-Oct-B2 
Bt: Keith Bill 

KEYBOARD DRIVER FOR PROM <kb> 



EQUATES FOR ALL KEYBOARD SOFTWARE 
KEYBOARD DATA AREA DEFINITIONS 



KBBflgs £QU 
KBBirnt EQU 
XBBce«r EQU 
KBBst4v EQU 
KBBbuff EQU 
KBBIen EQU 



,FLAG JUST KI ORDER BYTE 

KBBfl9St2 .FRONT m SAVE 
KBBt'istf4 .REAR PTR SAVE 
KBBie4[«4 .STATUS REG SAVE AREA 
KBBsrsT^: .KEYBOARD BUFFER 
RAHkblen-KBBboft.NMBR OF BHES lii BUFFER 



FLAG BIT DEFINITIONS 



KBFfoU EQU 




KBFetty EQU 




KBFclos EQU 




KBFshft EQU 




KBFcntI EQU 




KBFlock EQU 





, MISCELLANEOUS EQUATES 



.BUFFER FULL FLAG 
.BUFFER EMPTY FLAG 
.KEY CLOSURE FLAG 
.SHIFT KEY 
,CO^f^ROL KEY 
.SHIFT LOCK KEY 



.MASK TO CLEAR D7-D5 (CONTROL CODE) 



TABLE VALUES FOR PROCESSING CHARACTERS 



KBCquil EQU 


$7F 


KBCshft EQU 


$FE 


KBCcntl EQU 


*>PD 


KBClock EQU 


$FC 


KBCnoch EQU 


JFF 



, SPECIAL ASCII CHARACTERS 

KBClca EQU 'a' 

KBCict EQU 'I' 

XBCqmik EQU '?' 



.QUALIFIER VALUES ) THEN THIS 
TABLE VALUE FOR SHIFT 
TABLE VALUE FOR CONTROL 
TABLE VALUE FOR SHIFT LOCK 
TABLE VALUE FOR NO CHAR CDE 



.LOVER CASE A 
.LOVER CASE Z 
.aUESTION MARK 
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00030F01 
03030F03 
00030F05 
00030F07 



S00G0002 
00000017 
00000008 
00000009 



G722 48E7 SOFO 

0724 47F8 0300 

072A VjU 0003 CFOS 

0730 i4BC 0002 

3734 41ES 0000 

0738 4290 

fi73A 08CO 0001 



873E 41EB OOOC 

0742 43EB 0002 

0746 22C8 

0748 2288 

074A 41FA 0034+ 

074E 21C8 0578 



1039 0003 QF03 

1039 S003 OFOl 

13FC 0017 0003 
0Ffl7 

14BC 0008 

303C 8235 

51C8 FFFE 

14BC 0009 

44FC 2500 

4CDF OFOl 
4E75 



987» 
988* 
989* 
990* 
991* 
992« 
993* 
994« 
995« 
99<* 
997* 
998» 
999« 
1000* 
1001» 
1002« 
1003* 
1004* 
1005* 
lOOi* 
1007* 
1008* 
1009* 
1010* 
1011* 
1012* 
1013* 
1014; 
1015* 
1016* 
1017* 
1018* 
1019* 
1020* 
1021* 
1022* 
1023* 
1024* 
1025* 
1026* 
1027* 
1028* 
1029* 
1030* 
1031* 



ADDRESSES OF XEyBOARD UART'S I/O REGISTERS 



SBRdata EQU 
XBRstit EQU 
KBRcand EQU 
KBRcntl EQU 



$30F01 
$30F03 
$30F0S 
$30F07 



,DATA INPUT PORT 
.STATUS REGISTER 
.COHKANO REGISTER 
.CONTROL REGISTER 



COHKANO AND CONTROL REGISTER VALUES 



KBccOff EQU 
KBcc&OO EQU 
KBccBtk EQU 
KBccGo EQU 



$02 
Jl? 
$08 
$09 



,TURN OFF UART (CMD) 

,600 BAUD AND B BIT XMIT (CTL) 

,IH1T A BREAK (CMD) 

iTURN ON I NTS & UART (CMD) 

.DISABLE 68000 INTERRUPTS 



KBinit - initialiie desei) keyboard 



REGISTER A2 IS USED AS POINTER TO CONKAND REGISTER 
REGISTER A3 IS ADDRESS OF KBRD DATA AREA 



KBinit HOVEM.L D0/A0-A3,-(SP) 

LEA RAMkbbaf.V,A3 

LEA KBRcind.L.AZ 

HOVE.B iKBccOtf,(A2) 

LEA KEBfIgs(A3},A0 

CLR.L (AO) 

BSET •KBFestr,(AO) 



;save registers 



.TURN OFF KBRD 
.CLEAR INT HANDLER FLAGS 
.INCLUDES QUALIFIERS 
.BUFFER IS EMPTY 



, INITIALIZE FRONT & REAR POINTERS 



LEA 


KBBbafr(A3),A0 


LEA 


KBBfrnt(A3),Al 


MOVE.L 


AO.(An + 


MOVE.L 


AO,(An 


LEA 


KBintt.AO 


MOVE.L 


AO.IVivU.V 



, TURN ON KEYBOARD UART 

MOVER KBRstat L.DO 
MOVE.B KBRdita.L.DO 
MOVES IKBcc600. KBRcntl. L 



1032* MOVE.B 
1033* HOVE.W 
1034* Kfiinitl DBF 
1035* MOVE.B 
1036* Bove.w 
1037* 
1038* 
1039* 



tKBccBrk.(A2) 
133333, DO 
DO.KBinitl 
IKBccGo,(A2) 
l$2500,sr 

MOVEM.L (SP)t,D0/A0-A3 

RTS 



.SETUP AUTOVECTOR 6 
iVITH ADDR OF INT HANDLER 



.RESET UART 

.CLEAR RECEIVE 

,8 BITS, 600 BAUD IMISSION 

.FORCE BREAK OF KBRD 

; DELAY FOR UART TO DO BREAK 

.NEED MINIMUM OF 33.3 MILLISECS 

.TURN ON UART ( INTERRUPTS 

,set priority to 6, KYBD intr only 

.restore registers 
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07BO 48E7 FFFE 
0784 4SFB 0300 
Q78B 6i7E 



078A 4iEA 0000 

078E 0890 0002 

0792 0800 0007 

079i i708 

0791 0800 0002 

079C 0880 0007 



07A0 43FA OtOCi 

07A4 0810 0003 

07At 6604 

07AA 43FA 0U2f 

07AE 1231 0000 



07B2 OCOl OOFF 
07Bi 6702 
07B8 61SE 



07BA 4CDF 7FFF 
07BE 4E73 



1041 
1042 
1043< 
10441 
104S 
1046 
1047' 
1048< 
1049 
1050 
lOSl 
lOSZ 
10S3' 
10S4< 

loss 

10S61 
1057' 
1058' 
1059 
1060 
1061 
1062< 
1063 
1064 
106S 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073' 
1074' 
1075 
1076 
1077' 
1078 
1079 
1080' 
1081 
1082 
1083 
1084' 



KBintt - Kcfboiid intertapt service loatine 

BEGIN INTERRUPT SERVICE ROUTINE. THIS IS THE ENTRY POINT. IT'S ADDRESS 
MUST BE PLACED IN AUTO VECTOR INTERRUPT 6 VECTOR BEFORE KEYBOARD INTERRUPT 
IS TURNED ON 

REGISTER USEAGE: DO - KEYCODE 

Dl - CHARACTER 

AO - ADDRESS OF FLAG BYTE 

AZ - BASE ADDRESS OF KBRD DATA AREA 



XBiBtr KOVEH.L D0-A6,-(SP) 

LEA RAI1kbb«f.V,A2 
BSR.S KBgetlT 



.SAVE REGISTERS ON STACK 
.BASE ADDR OF KBRD DATA AREA 
,GET KEYCODE FROM UART DATA PORT 



IF BIT 7 OF KEYCODE SET THEN CLOSURE ELSE RELEASE 



LEA KBBfIgs(A2),A0 

BCLR IKBFcIos,(AO) 

BTST I 7, DO 

BEQ.S KBinttl 

BSET IKBrclos,{AO} 

BCLR 17,00 



ASSUME RELEASE 
KEYCODE BIT D7 CLEAR? 
YES 



GET CHARACTER CODE FOR THIS KEYCODE 

i ASSUME SHIFT TABLE 



KBintrl LEA KBstible.Al 

BTST IKBFshft,(AO) 

BNE.S KBintr2 

LEA XBtiaie,Al 

KBintt2 MOVES 0(A1 ,DO.V) .Dl 



.SHIFT BIT SET 

.ELSE USE REGULAR TABLE 

.INDES TABLE BY KEYCODE 



IF CHAR(Dl) e $FF THEN IGNORE AND EXIT 



CMPI.B IKBCnoch.Dl 
BEQ.S KBint[9 
BSR.S KBpcoky 

EXIT INTERRUPT SERVICE ROUTINE 



iELSE PROCESS KEYCODE 



KBintr9 MOVEH.L (SP)f,D0-A6 
RTE 



.RESTORE REGISTERS 
.EXIT INTERRUPT 
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07C(1 48E7 COPE 
C7C4 4BFc 8300 
G7C8 '59ED OGOO 



fl7CC 2S14 COCl 
C7DI1 (.6FA 



07D2 


47ED 


0002 


Q7D6 


2053 




2708 


43ED 


0100 


07DC 


2448 




C7DE 


5 28A 




07E0 


B5C8 




il7E2 


6604 




07E4 


45ED 


flOOC 


Q7E! 


4DED 


flOOA 


G7EC 


40D6 




07EE 


007C 


0700 


07F2 


1010 




07F4 


268A 




07F4 


B5E0 


0006 


fl7FA 


6604 




Q7FC 


08D4 


0001 


0800 


4606 




0802 


4CDF 


7F00 


G80i 


4E75 





1066* 
1087* 
i088« 
108?* 
1090* 
1091* 
1092* 
1093« 
1094* 
1095* 
1096« 
1097» 
1098* 
1099* 
11Q0« 
1101* 
1102* 
1103* 
1104* 
1105* 
1106* 
1107* 
1108* 
1109* 
1110* 
lUi* 
1112* 
1113* 
1114* 
1115* 
1116* 
1117* 
1118* 
1119* 
1120* 
1121* 
1122* 
1123* 
1124* 
1125* 
1126* 
1127* 
1128* 
1129* 
1130* 
1131* 



KBgetch - Get i keyboard charicter 

Register useage: AO = Front pointer 

Al 3 address of end of buffer * i 

A2 = updated front pointer 

A3 s address of front pointer 

A4 = address of flag byte 

A5 = address of keyboard data area 

At = address of Status Register save area 



Efit. 



DO B - Neit character in buffer 



KBgetch HOVEK.L AG-A6,-(SP) 

LEA RANkbbuf V,A5 
LEA KBBflgs(AS),A4 



iSave all address registers 
, keyboard data area 
.address of Flag byte 



Wait for a character in the Buffer. 



KBgchrl BTST IKBFeBty, (A4) 
BKE.S KBgchrl 



,whiie (Buf fer.eapty) do, 



, ha?e char, check for wrap around before get char 



LEA KBBfrAt(AS),A3 

KOVE.L (A3),A0 

LEA KBBbufr+KBBlenU5),Al 

HOVEL A0,A2 

ADQQ.L ii.AZ 

CMFA L A0,A2 

BNE.3 KBgchr2 

LEA KBBbnfr(AS).A2 

KBgchr2 LEA KBBsrs? (AS). Ai 

KGVE.V SR,(A6) 

ORI.V IKSdsInt.SR 

KOVE.E (AO),C0 

HOVE.L A2,(AS; 

CKPA.L KBErear(AS),AZ 

BNE.S KBgchrS 

BSET IKBFeBty, (A4) 

KBgchr3 HOVE.V (A6),SR 

HOVEH.L (SP)f,A0-A6 
HTS 



.pointer to Front sa?e ioc 
Front pointer 
end of buffer * i 

add one to pointer to get neit addr 

rront=end oi buffer + 1 ? 

No 

yes, then pointer wraps back to beginning 



»** disable interrupts 
get char 

save new Front vaiue 
if FrontsRear then 
Buffer.eapty :s true, 



*** enable interrupts 
restore callers address regs 
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OBOA 1239 G003 0F03 
OBIO 1039 0003 OFOl 
08U 4E7S 



KBgetky - GET KEYCODC (IGNORES ERRORS) 

EXIT . (DO) - UART DATA PORT BYTE 

KBgetky CLR.L DO 



,MAKE SURE HI 3 BYTES ARE 



READ STATUS REGISTER TO CLEAR IRQ BIT 

ALWAYS READ DATA FORT SO IF OVERRUN THEN FOR NEXT CHAR 

IT WILL BE CLEARED. 



HOVE.B KBRst4t.L,Dl 
MOVE.B KBRdata.L.DO 
RTS 



,CET STATUS OF RECEIVE 
.READ UART DATA PORT 



File 
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C618 


OCOl 


0fl7F 




081C 


623C 






SB IE 


061C 


0002 




3822 


4738 






0824 


0813 


0004 




G828 


i7CC 






C82A 


OCO! 


003F 




082E 


6306 






0830 


0201 


OOIF 




S834 


601A 






083i 


0810 


0005 




0S3A 


6714 






l)83C 


GCOl 


0061 




0840 


650E 






0842 


OCOI 


007A 




084i 


6208 






9848 


43FA 


0064^ 




084C 


1231 


0000 




0850 


0810 


0000 




0854 


6606 






0856 


6106 






0858 


6002 






085A 


6128 






G8SC 


4E75 
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Kfiproky - PROCESS CHARACTER OR QUALIFIER 

Enter: 01 = CHARACTER CODE FROM TABLE 
00 s XEYCODE 
AO = ADDRESS OF FLAGS 



KBprokr CKPI.B IKBCqaii.Dl 
BHI.S KBpto3 



,1S IT A QUALIFIER 
,YES 



IGNORE REST OF KEYS IF NOT CLOSURE 



BTST IKBFcIos,(AO) 
BEOS KBpro9 

, TEST FOR CONTROL 

BTST tKBFcntl.CAO) 

BEQ.S KBprol 

CHFl.B IKBCqirk.Dl 

BLS S KBprol 

AHDI.B tKBask40,Oi 

ERA.S KBpro2 

, TEST FOR SHIFT LOCK 



.NO, TRY SHIFT LOCK 



iCLEAR BITS 07,06,03 OF CHAR 
,FUT CHAR 



KBprol BTST tKBFIock,(AO} 

BEQ.S KBpro2 

CHPI.B IKBCIca.Dl 

BCS.S XBpro2 

CKPI.B tKBCIcx.Ol 

BHI.S XBpro2 

LEA KBst«bIe,Al 

HOVE.B 0(A1,OO.V).D1 



KEY NOT DOWN 
NOT WITHIN RANGE 
NOT WITHIN RANGE 
INDEX TABLE BY KEYCODE 
IF BUFFER NOT FULL PUT CHARACTER 



KBpro2 BTST IXBFfaII,(AO) 

BNB.S KBpro9 

6SR.S XBputch 

BRA.S KBpro9 



PROCESS A QUALIFIER KEY 



KBpro3 BSR.S KBquil 
KBpro? RTS 
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1197« 








1198* 








1199« 








1200* 








1201* 








1202* 








1203* 








1204* 








1205* 








1206* 


08SE 


4BEA 


0006 


1207* 


08U 


2&SS 




1208* 


0864 


UCl 




1209* 
1210* 
1211* 
1212* 


08a 


49EA 


0100 


1213* 


ua 


B7CC 




1214* 


086C 


6604 




1215* 


08&E 


47EA 


OOOC 


1216* 
1217* 
1218* 
1219* 


0872 


B7EA 


0002 


1220* 


0876 


£604 




1221* 


0878 


08D0 


0000 


1222* 


087C 


2A8B 




1223* 


087E 


08?0 


0001 


1224* 


0882 


4E75 




1225* 
1226* 



KBputch - PUT ONE CHARACTER IN BUFFER 

Enter; Dl = BYTE TO PUT IN BUFFER 
AO = ADDRESS OF FLAGS 
A2 = ADDRESS OF KEYBOARD DATA AREA 



, PUT CHARACTER IN CIRCULAR QUEUE AT REAR 

KBpatch LEA KBB[ear(A2),A5 
HOVEL (A5),A3 
MOVE.B D1.(A3)+ .UPDATE POINTER ALSO 

, IF REAR ) ENDBUFFER THEN REAR .= §EUFFER 

LEA KBBbufc^KBBIen(A2),A4 

CHFA.L A4,A3 

BNE.S KSputl ,NOT BEYOND BUFFER 

LEA KBBbaf[(A2>.A3 

, IF FRONT = REAR THEN BUFFER FULL 

KBpatl CKPA.L KBBf tnt (A2) ,A3 

BNE.S KBpat2 

BSET IKBFfuU,(AO) 

KBput2 MOVE.L A3, (AS) , UPDATE REAR IN MEMORY 

BCLR IKBFe*ty,aO) .SHOW BUFFER NOT EMPTY 

RTS 
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1228* 
















1229* 


XBqaai - PROCESS QUALIFIER KEYS 










1230* 
















1231* 




Enter; 


01 = CHARACTER CODE FROM TABLE 








1232* 






AO r ADDRESS OF FLAGS 










1233* 










0884 


OCOi 


OOFE 


1234* I 


CBqoal 


CMPI.B 


•KBCsiift,Dl 


IS IT SHIFT? 


D86I 


ao4 




. 1235* 




BNE.S 


KBqaall 


NO 


088A 


7403 




1236* 




MOVED 


IKBFshft,02 


BIT POSITION OF SHIFT 


088C 


60 12 




1237* 
1238* 




BRA.S 


XBqaaI3 


CHANGE FLAG 


086E 


OCOI 


OOFD 


1239* KBquall 


CHFI.B 


IKBCcntl.Dl 


IS IT CONTROL? 


089! 


i604 




1240* 




BNE.S 


KBqual2 


NO 


0894 


7404 




1241* 




MOVEQ 


tKBFcnti.D2 


BIT POSITION OF CONTROL 


0896 


i008 




1242* 
1243* 




BRA.S 


KBqual3 


CHANGE FLAG 


0898 


OCOI 


OOfC 


1244* KBqaai2 


CKPI.B 


tKBCIock,01 


IS IT SHIFT LOCK? 


089C 


6i0E 




1245* 




BNE.S 


KBqaaI9 


NO, THEN IT'S GARBAGE 


389E 


7405 




1246* 
1247* 




MOVEQ 


tKBFlocfc,D2 










1248* 




, IF CLOSURE THEN SET FLAG ELSE 


:LEAR FLAG 








1249* 




, 






8BA0 


0810 


0002 


1250* KBqualS 


BTST 


•K8FcIos,(A0) 




08A4 


&704 




1251* 




BEQ.S 


KBqoalB 




08Ai 


OSCO 




1252* 




BSET 


D2,(A0> 




08A8 


&00Z 




1253* 




BRA.S 


KBqaal? 




08AA 


0590 




1254* KBqaalB 


BCLR 


D2,(A0) 




08AC 


4E75 




1255* KBqoal9 


RTS 












1256* 
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1258* 
125?* 
1260* 
1261* 
1242* 
1263* 



THE SHIFT TABLE 

TABLE IS IKDCIED BY KEYCODE. EACH BYTE REPRESENTS THE ENTRY FOR 
THE CORRESPONDING KEYCODE. 



08AE 
88B4 
08BA 



FF 33 3? FF 36 2C 
2D OD FF 31 37 FF 
34 38 3S 32 



08BE 
0BC4 
Q8CA 


2B FF 7B 
7C FF 2? 
3A 7E 22 


08 OD 7D 
3F SO SF 


08CE 
08O4 
08DA 


FF FF FF 
FF FF 24 
4i 47 %i 


FF FF FF 

25 52 54 


08OE 
08E4 
08EA 


40 23 S7 
38 43 IB 
FC 41 FE 


45 53 44 
21 FF 51 


08EE 
08F4 
08FA 


5E 26 S9 
4E 4D FD 
FF 30 FF 


55 48 4A 
FF FF 20 


OBFE 
0904 
090A 


2A 28 49 
3C 3E FF 
FF FF FF 


4F 4B 4C 
FF FF FF 



1 2 3 4 5 6 7 B 9 A B C D E F 
1264* KBstabU 

1265* , .. 3 9 ,. 6 , - cr ,, i 7 . 4 8 5 2 

1266* DATA.B $FF. $33. $39, JFF, S36, 42C, S2D,$0D,$FF,$3l , $37, SFF, $34, $38, $35 , $31 



1267* , , ♦ .. { ! cr ) bs . . ) ' P _ ; ' " . 

1268* , DATA.B $2B.$FF,$7B,$7C,$0D,$7D,$08,$FF,$29,$3F,$50,$5F, $3A,$7E,$22 ,$FE 

1269* , ♦ .. { bs cr ] : .. ) ? P _ : ' " . ,0 6 

1270* DATA.B $2B,$FF,$7B,$0B,$0D,$7D,$7C,$FF, $29,$3F,$50,$5F,$3A,$7E,$22,$FE ,0 6 



1271* ; $%RTFGVB 

1272* DATA.B $FF,$FF, $FF,$FF, $FF, $FF, $FF, $FF, 524, $25 , $52 ,$54, $46 ,$47, $56 , $42 



1273* , « I W E S D X C esc i .. Q . A . Z 

1274* DATA.B $40,S23, $57 , $45, $53, $44,$58,$43 , $18, $21 , $FF,$51 , $FC, $41, $FE, $5A 



1275* , AiYUHJNK spO.. 

1276* DATA.B $5E,$26, $59, $55, $48, $4A, $4E, $4D, $FD, $FF, $FF,$20, $rF, $30, $rF, $2E 



1277* , « { I K L { ) 

1278* DATA.B $2A,$28,$49. $4F,$4B, $4C,$3C,$3E,$FF,$FF,$FF,$FF, $FF, $FF, $FF,$FF 
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1281* 














1282« 














1283* 














1284« 














1285» 














1286* 


090E 












1287* 
1288* 


090E 


FF 


33 


39 


FF 




2C 1289* 


0914 


2D 


OD 


FF 


31 




FF 


OVIA 


34 


38 


35 


32 




1290* 
1291* 
1292* 


09iE 


3D 


FF 


56 


OS 




5D 1293* 




5C 


FF 


30 


2F 




2D 




3B 


60 


27 


FE 




1294* 




FF 


FF 


FF 


FF 




FF 1295* 




FF 


FF 


34 


35 




74 




66 


67 


76 


62 




1296* 




32 


33 


77 


65 




64 1297* 




78 


63 


IB 


31 




71 




FC 


61 


FE 


n 




1298* 




36 


37 


79 


75 




6A 1299* 




i£ 


60 


FD 


FF 




20 




FF 


30 


FF 


2E 




1300* 




38 


39 


69 


6F 


6B 


6C 1301* 




2C 


2E 


FF 


FF 


FF 


FF 




FF 


FF 


FF 


FF 







THE REGULAR TABLE - UNSHIFTED OR LOVER CASE 

TABLE IS INDEXED BY KEYCODE. EACH BYTE REPRESENTS THE ENTRY FOR 
THE CORRESPONDING XEYCODE. 

01234S67B9ABCDEF 
KBttable 

.. 3 9 .. 6 , - cr .. I 7 .. 4 8 5 2 
DATA.B $FF,$33,$39,$FF,$36,$2C,$2D.$0D,$FF.J31,$37,JFF,$34.538,$35,$32 



= .. t \ ct ] bs .. / p - , ' ... 
DATA.B $3D,$FF,$SB,$SC,$0D,$SD,$08,$FF,$30,$2F,$70,$2D.$3B,$60.$27,$FE 

= .. [ bs cr ] \ .. / p - , ' ; .. ;6.6 
DATA.B i3D,$FF,$SB,$08,$0D,$SD,$SC,$FF.$30,$2F,S70,$2D,$3B,$60,$27,$FE ,0.6 



4 5 I t f g » b 

DATA.B $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$34,$35,$72,$74,U4,i67,$7i,$62 



, 23wesdicescl.q.a.. g 
DATA.B i32,$33,$77,$65,$73,$64,J78,i63,$lB,$3I,$FF.$7l,$FC,J6i,$FE,$7A 



6 7 y u h j n a sp . . fl .. 

DATA.B J36,537,$79,$75,i68,J6A,$6E,$4D.$FD,$FF,$FF,$20,$FF,$30,$FF,$2E 



8 9 i k 1 , 

DATA.B S38,$39,$69,t6r,$6B,i6C,.$2C,$2E,$FF,$FF,$FF,$FF,JFF,$FF,$FF,$FF 
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OOOOOOiO 
0008DSSE 
00080504 
00000006 
OOQOOOOA 
000002CF 
O0OQO22F 
0000022D 
000002CF 

OOOOOOOO 
OOOOOOIB 
00000020 
OOOOOO&l 
0000007A 
00000020 



00000004 
OOOOOOOi 
00000008 
OOOOOOOA 

oooooooc 

QOOQOOIO 

OOGOOOll 
00000012 



13041 
1305 
1306' 
1307' 
1308: 
130? 
1310 
1311 
1312< 
1313 
1314< 
UlS 
1316 

mr 

1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
132?' 
1330 
1331 
1332 
1333 
1334' 
1335 
1336' 
1337 
1338' 
133? 
13401 
1341 
1342' 
1343' 
1344' 
1345' 



include 'CC.PRON.DS' .dispIiT driver 

File: CC.PROH.DS 
Dite: 2?-Oct-B2 

DISPLAY DRIVER FOR PROH (ab) 05/18/62 

BOTH horitontil and vetticti display drivet 

contains default window records, copies thei into neBorf 

contains default character sets 

no CRTST code: no window fanctions 



DSdefOf equ 
DShoaeH eqa 
DShoieV eqtt 
DScellV eqo 
DScellY eqa 
DSBaiZH eqo 
DSBaiYH eqa 
DSaaiXV equ 
DSiaiYV equ 

DSCcr eqa 
DSCesc eqo 
OSCbInk equ 
DSCIca equ 
DSClct equ 
OSCdiff equ 



96 idefault bytes per scan line 

$8D5SE ihoritontal hoae location 

$80506 ifertical hoae location 

6 .character cell width 

10 (Character cell height 

71? ,l20«DScelIV-l 

55? ;S6*DSceirt-l 

557 ,?3«DSceIiy-l 

71? ,72«DSceIIY-l 

$0D .carriage return character 

$1B .escape character 

$20 iblank character 

$61 , lower case "a" 

$7A i lower case "«" 

$20 



Character Set Record Equates 



.Stblloc equ 
CSlpch eqo 
CSbpch equ 
CSfrstch eqo 
CSIastch equ 
CSaask equ 
CSattrl equ 



CSattr2 eqa 17 
CSdata equ 18 



character set data pointer (not used) 

scanlines per character 

bits per character 

first character code - ascii 

last character code - ascii 

aask used in positioning cells 

attributes 

bit 0:1- vertical orientation 
carrentl; unused 
offset of char data froa char record 
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SQQOOOOO 
Q00G0004 
OC000008 
COOOCOOC 
3C00C00E 
OOODOOIO 
C0000C12 
flOODOOH 
OOOOOOU 
00000818 
OOOOGOiA 
OOOOOfllC 
GOOOOOIE 
00000020 
COGOOGZI 

3000G00G 
OOOOGOOi 
OOGOOOOZ 
00000003 
GO00G3O4 
00000005 

00000022 
CC000023 



1347* 










, Window 


Record Eq 












VRcharpt 


equ 






VRhoiept 


eqo 






VRcaradr 


equ 






VRhoieof 


equ 






VRbasex 


equ 






VRbisey 


equ 






VRinqthi 


equ 






VRIngthy 


equ 






VRcursi 


equ 






WRcorsy 


equ 






VRbitofs 


equ 






VRgiotgi 


equ 






VRgrorgy 


equ 






VRattn 


equ 






VRattr2 


equ 














vett 


equ 






graphic 


equ 






curson 


equ 






invcurs 


equ 






weapon 


equ 






noscroll 


equ 














WRstate 


equ 


34 




VRicdlen 


equ 


35 












VRlength 


equ 


36 











character set pointer 

home upper left) pointer 

current location pointer 

bit offset of ho>e location 

hone I value, relative to root window 

hose y value, relative to root window 

laiiaui I value, relative to window (bits) 

Baiiiui y value, relative to window (bits) 

current i value (bits) 

current y value (bits) 

bit offset of current address 

graphics - origin i (bits relative to hoae ioc) 

graphics - origin y (bits relative to hose Ioc) 

attributes 

attributes 



1 = vertical, 

1 = graphics, 

1 = cursor on, 

1 : inverse, 

1 = wrap, 

1 = no scroll, 



= horizontal screen 
= character aode 
= cursor off 
= underline cursor 
= clip at eoln 
= scroll 



used for decoding escape sequences 
window description record length 



, actual window record length 



File: 


CC.PR 


OM.TEXT 


1379* 
1380« 
1381« 


096E 


48E7 


08E0 


1382* 


0972 


3irc 


0060 0764 


1383ft 


0971 


41FA 


03B0f 


1384» 


097C 


45FA 


03D0f 


1385* 


0980 


0839 


0003 0003 


1386* 


09Bi 


0F61 






0988 


6708 




1387« 


09BIL 


41FA 


03D4« 


1388* 


098E 


4SFA 


03F4^ 


1389* 


0992 


227C 


0000 0740 


1390* 


0998 


7823 




1391* 


099A 


1208 




1392* 


099C 


51CC 


FFFC 


1393* 


09A0 


207C 


0000 0740 


i394* 


09A4 


214A 


0000 


1395* 


09AA 


6100 


OlEE 


1396* 


09AE 


4CDF 


0710 


1397* 


09B2 


4E75 




1398* 
1399* 
1400* 
1401* 
1402* 
1403* 
1404* 
1405* 
1406* 


09 B4 


OCOO 


0061 


1407* 


09B8 


6S0A 




1408* 


09BA 


OCOO 


007A 


1409* 


09BE 


6204 




1410* 


fl9C0 


0400 


0020 


1411* 


09C4 


4E75 




1412* 
1413* 
1414* 
1415* 
1416* 
1417* 
1418* 
1419* 


09Ci 


48E7 


8080 


1420* 
1421* 


09CA 


1018 




1422* 


09CC 


6704 




1423* 


09CE 


6108 




1424* 


09D0 


60F8 




1425* 
1426* 


09D2 


4CDF 


0101 


1427* 


09Di 


4E7S 




1428* 
1429* 
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DSinit - Initialise dispUf driver 

DSi&ii HOVEH.L D4/A0-A2,-(SF) 

KOVE.U tOSdefOf.CFscDofs.V 

LEA DSwndH.AO 

LEA DScsctH,A2 

BT3T «3,I0bootsw.L 

BOFF.S DSinitl 

LEA DSwndV.AO 

LEA DScsetV,A2 

DSinitl HOVEL ICPwndicd.Al 

nOVEQ IVRlength-l,D4 

DSinit2 HOVE.B (AO)t,(Ani 

DBHA D4,DSinit2 

HOVE.L ICPwndicd.AO 

MOVE.L A2,WRcharpt(A0) 

BSR DScars 

MOVEM.L (SP>+,04/A0-A2 

RTS 



save registers 

set bytes per scan line 

assuae horixontal orientation 

* 

, IS display horixontal' 

,yes, go on 

,set vertical orientation 

,get pointer to RAK window record 
,get window record length 0.6 
,copf window record to RAK 6 
■ * 

,gel RAK window record pointer 
,set character set record pointer 
;display cursor on screen 
.restore registers 
.return 



DScvtUC - Convert character to upper case 
Enter: DOB = ASCII character 
Eiit. DG.B = upper case ASCII character 



DScvtUC CMPI.B IDSClca.DO 

BLO.S DScvtUl 

CMPI.B IDSClcx.DO 

BHI.S DScvtUl 

SUBI.B IDSCdiff.DO 

OScvtUl RTS 



DSputst - Display a string 



,1.5 character lower case? 
,no, return 

;« 

ino, return 

;convert character to upper case 

; return 



Enter: AO.L - Character string pointer 
(teiainated by 0) 



DSpQtst aoveB.l DO/AO,-(SP) 

DSpstl aove.b (&0)^,dO 

beq.s DSpst9 

bsr.s V DSputch 

bra. 5 L£^:M 

DSpst9 BOfCB.I (SP)i.DO/A0 
Its 



save registers 

get next character 
finished, return 
output character 
get next character 

restore registers 
return 
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DSpu 


ch - Displar i charactet 


























Enter: 


DO.B - Character 
















0908 


48E7 


FFFE 


1436* I 


}Spatch HOVCH.L 


D0-O7/A0-A6,-(SP) 


09DC 


0240 


007? 






andi.w 


l$7F,dO 


89E0 


207C 


0000 074P 






MOVE.L 


ICPwndrcd.AO 


09E6 


2463 


0000 






MOVE.L 


VRcharplU0),A2 


■iUK 


4283 








CLR.L 


D3 


09EC 


U2B 


0022 






HOVE.B 


VRstate(A0),O3 


fl9F0 


E34B 








LSL.V 


• 1,D3 


09F2 


43FA 


0332f 






LEA 


OSsTbl.Al 


09F4 


3631 


3000 






MOVE.W 


0(A1,D3.V),D3 


09FA 


4EF1 


3000 






JMP 


0(A1.D3.V) 


Q9FE 


5228 


0022 


1447* 


)SnitS 


AOOQ.B 


ll,VRstate(A0) 


0AO2 


6004 








BRA.S 


DSeiit 


OAQ^ 


4228 


0022 


1450* DSrese 


CLR.B 


VRstate(AO) 
















0AQ8 


4CDF 


7FFF 


1452* DSeiit 


MOVEM.L 


<SP)+,D0-D7/A0-A6 


OACC 


4E75 








RTS 




OAGE 


30 3C 


OOIB 


1455* DSslO 


CMP.B 


<OSCesG,D0 


QAIZ 


67EA 








BEQ.S 


DSnxtSt 


0A14 


B06A 


00(8 






CMP.W 


CSfrstch(A2),D0 


OAia 


4508 








BLO.S 


DScti 


OAIA 


6146 








BSR.S 


DSshwCh 


OAIC 


6100 


C102 






BSR 


OSinci 


0A2& 


60Ei 








BRA.S 


DSeiit 


QA2: 


5140 




1463* DSctI 


SUBQ.V 


ftS.OG 


QA24 


6BE2 








BMI.S 


DSeiit 


0A2i 


0C4C 


0005 






CHPI .V 


IS. DO 


QA2A 


62DC 








BHI.S 


DSeiit 


SA2C 


47FA 


020A^ 






LEA 


DScTbI,A3 


QA30 


E348 








L5L.W 


11, DO 


0A32 


487A 


FFD4 + 






PEA 


DSeiit 


QA3i 


3033 


0000 






MOVE.W 


0(A3.D0),D0 


OASA 


4EF3 


0000 






JMP 


0(A3,D0) 



outpat 



save registers 

■ake character 7 bits 

get RAH window record pointer 

get character set record pointer 



convert to state table indei 

D3 = dist froB DSsTbl 

go to carrent state processing 

incretent for neit state 
retorn 

reset current state 

restore registers 
retarn 

is char ESC? 

;es, go to neit state 

ascinoB < first char? 

yes, it's a control char 

display character 

inccori 

return 

coBsence decoding ctrl char 

ascinuB in i8. .131? 

yes, do cursor ctrl 

A3ss>iuBp table for ctrl chars 

Bake it word coant 

ensure RTS to eiit 

DO is offset froB DScTbi 

iuBp to proper rootine 
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0A3E 4241 

0A4() 47rA 02D2f 

0A44 B073 1000 

0A48 670A 

0A4A 5841 

0A4C 4A73 1000 

OASO ikn 

0AS2 iOBO 

0AS4 3001 

OASi S440 

OASI 4B7A FFAAt 

0A5C 3033 0000 

0A60 4EF3 0000 



1474« 1 

1475* 

1474* 

1477» I 

1478* 

1479* 

1480* 

1481* 

1482* 

1483* 

1484* I 

1485* 

1484* 

1487* 

1488* 

1489* 



CLR.W 


Dl 


LEA 


DSeTbl,A3 


CMP.W 


0(A3,D1),D0 


BEQ.S 


DSesc2 


AODQ.V 


• 4,01 


TST.U 


0(A3,D1) 


BFL.S 


OSescl 


BRA.S 


DSieset 



HOVE.V Dl.DO 

ADOQ.V 12, DO 

PEA DSreset 

HOVE.V 0(A3,O0),D0 

JNF 0(A3,DO) 



initiaiiie index leg 
A3=-> beginning ol table 

does table entcy aatoh chat' 

yes, go on 

go to neit entty 

end of table? 

no, loop 

return 

set DO to table otiset 

ensure RTS to reset state 
DO is offset froi OSeTbl 
iuap to proper routine 
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0A64 




FF4E 


0A&8 




0008 


(1A6C 






0A6E 




OCOA 


flA72 






0A74 




0020 


0A7S 




OOOB 


0A7C 




03181 


3A8S 




0006 


0A84 






3A86 




0008 


0A8A 




0GO4 


3A8E 






0A90 




0744 


0A94 




OfilA 


3A98 




OOOC 


0A9C 




0000 


3AA2 


671C 





0AA4 2GC6 

0AA6 4680 

GAAe EASE 

OAAA 141B 

GAAC E14A 

OAAE 4842 

0A30 C480 

0A32 EAAA 

0A54 CD94 

0AB4 8594 

0AB8 98C3 

OABA 51C9 

3ABE 6GSA 



1491 
1492 
1493' 
1494 
1495' 
1496 
1497 
1498 
1499' 
ISOO 
ISOl 
1S02 
1503' 
1504 
1505' 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513' 
1514 
1515 
ISli 
1517 
1518 
1519 
1520 
1S21 
1522 
1523 
1524' 
1525' 
lS2i 
1527 
1528 
1529 
1530 
1531 
1532 
1533' 
1534 
1S3S 



DSshwCh - DispUf character 

Enter: AO.L = window record pointer 

A2.L : character set record pointer 
DO.V s ASCII character 

Note. Chatacter set sost be in bytes, not words 



DSshwCh BSR 
CMP.W 
BLT.5 
CNP.W 
BLE.S 

DSshowl KOVE.V 



DSc»tUC 

CSfrstch(A2),D0 

DSshowl 

CSlastch(A2),DD 

DSshow2 

tDSCbink.DO 



DSshow2 SUB.V 
LEA 
MULU 
ADDA.L 
MOVE . L 



CSfrstch(A2),O0 
DScsetV«CSdata,a3 
tDSceIIW,DO 
00. A3 

VRcuradr(A0),A4 
MOV'E.V CSlpch(A2),01 
SUBQ.V tl.Dl 
MOVE.V CPscnots.W,D3 
KOVE.V VRbitofs<A0),D5 
KOVE.L CSaask(A2),Di 
BTST tvert.WRattr2(A0) 
BOFF.S OSshowi 



convert character to upper case 
is character in character set? 
no, output space 

yes, output character 
noi output space 

get relative character position 
qet pointer to character data 



get current character address 

get number of scan lines £or character 

get count for DBRA 

get scan line length 

get bit offset of chatacter in ceil 

get character >ask 

is this vertical orientation? 

no, output horiiontal character 



; output vertical orientation character 



HOVE . I 
NOT.L 
ROR.L 
DSshow3 MOVE.B 
LSL.V 
SVAF 
AND.L 
LSR.L 
ANO.L 
OR.L 
SUBA.V 
DBRA 
BRAS 



,D2 



06, CO 

DO 

DS.Di 

<A3)t 

t8,D2 

D2 

DO, 02 

DS,D2 

06, {A4) 

02, (A4) 

03, A4 

Dl,DSshow3 

OSshow? 



OO = inverted usfc 
06 = positioned aask 
02 = char data 

get char in high word 
clear rest of source char 
position source char 
clear dest char area 
■ove in character 

repeat for Di:sCSIpch-l to 
return 
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OACO 


4Ai4 




0XC2 


EBBE 




0AC4 


2806 




OJlCi 


4684 




0AC8 


7007 




OACA 


4282 




OACC 


4A40 




OACE 


603C 




OAOO 


0126 


0000 


GAD4 


6704 




OADi 


08C2 




QAOA 


012E 




OADE 


6704 




SAEO 


Q8C2 




QAE4 


012B 




9AEI 


6704 




SAEA 


08C2 




DAEE 


&12S 




un 


6704 




flAF4 


08C2 




OAFS 


012B 




OAFC 


6704 




OAFE 


08C2 




0BO2 


0126 




OBOi 


6704 




IIB08 


fl8C2 


OOOS 


OBOC 


S340 




OBOE 


EBAA 




SBIO 


CD94 




0812 


85?4 




0B14 


9BC3 




OBU 


51C? 


FFB2 


OBIA 


4E75 





1537« 




, 




1338* 




, ootpv 


t hoiijontj 


1539« 




, 




1S40* 


DS9liow6 


TST.W 


-(A4) 


1541* 




ROL.L 


DS,D6 


1542« 




MOVE.L 


D6,D4 


1543* 




NOT.L 


D4 


1544* 




Bovcq 


•7,dfl 


1515« 








1546« 


DSshow7 


dr. I 


d2 


1547« 




tst.w 


dO 


1548* 




bits 


OSshw76 


154»« 




btst 


d0,0(a3) 


1550* 




botf.s 


DSshw71 


1551* 




bset 


t0,d2 


1552* 


DSshw71 


btst 


d0,lu3) 


1553* 




boff.s 


DSshw72 


1554« 




bset 


11, d2 


1555* 


D3shw72 


btst 


d0,2(a3> 


1536* 




boff.s 


OSshw73 


1557* 




bset 


12, d2 


1558» 


DSshw73 


btst 


d0,3(a3) 


1559» 




boff.s 


OSshw74 


1560* 




bset 


«3,d2 


1561* 


DSshw74 


btst 


d0,4(i3) 


1562« 




boff.s 


0Sshw7S 


1563* 




bset 


14, d2 


i564« 


DSshw75 


btst 


dO,S(d3) 


1565« 




boff.s 


DSshw76 


15660 




bset 


•S,d2 


1567* 


DSshw76 


sobq 


• l.dO 


1568* 




LSL.L 


DS,D2 


1569« 




AMD.L 


D6,(A4) 


1570* 




OR.L 


D2,(A4) 


1571* 




SUBA.V 


03, A4 


1572* 




DBRA 


Dl.DSshow' 


1573* 


DSshow9 


RTS 




1574* 









A4==/Iong word with cell 
06 = positioned lask 

D4 = iOTCited aask 

use 6 bits of character data 

cleat current scan line of character 
have we used 8 bits of character data' 
yes, pad wi th space 
onsttuct nest horixontal chaiactei 
froi vertical character data 



ndicate another bit used 
shift char into position 
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BIC 



6100 0G7E 

QB20 3228 0016 

0B24 5C41 

0B2i 3141 0016 

CB2il 6268 0012 

0B2E 6C08 

0B30 6068 



CB32 6168 
0834 6048 



0B36 6164 

0B38 4268 

0E3C 3638 

084* 6704 

0B44 6054 



0B46 6154 

0B48 3228 OOiE 

3B4C 0641 OCOA 

0B50 3141 0018 

0E54 B268 0014 

0858 6F40 

0B5A 6000 0084 



0B5E 613C 

OB60 4A68 0016 

0B64 6712 

0B66 SD68 0016 

CBcA 602E 



DScrsR -- catsor right 



DScisR 


B3R 


DScutsO 


DSinci 


MOVE.W 


WRcuisi(AO),Dl 




ADDQ.V 


•OScellV.Dl 




MOVE.W 


Dl,VRcuisi(AO} 




CMP.W 


VRingthiaO),Dl 




BCE.S 


DSrttni 




BRAS 


OScars 



OScrsU -- cursor up 



DScrsU BSR.S DScursS 
BRAS DSdec; 



i DSrtrn -- return 

DSrtrn BSR.S OScursO 

OSrtrnl CLR.V VRcursx(AO) 

6TST tl.CFdspfig.w 

BOFF.S DSmcy 

BRA.S DScurs 



DScrsD -- cursor down 



DScrsD 
DSincf 



BSR.S DScursO 

HOVE.U VRcurs7(A0),Dl 

ADDI.V IDSceiiy.Ol 

MOVE.W Di,VRcursy(AO) 

CMP W WRingthy(AO),Dl 

BLE.S DScQts 

BRA DSciAL 



;re>ofe cursor 

,get current cursor 1 position 

lincresent 1 character space 0.6 

.save new cursor I position 0.6 

,at end of line? 0.6 

;yes, do carriage return 0.6 

, show cursor 0.6 



iieBove cursor 

.decrement cursor Y position 



,reBore cursor 

,iero current cursor I position 

,auto line feed? 

;no, increaent cursor ¥ position 

iShow cursor 



iresove cursor 

iget current cursor ¥ position 

;increBent 1 character space I 

isave new cursor Y position I 

,at bottoB of screen? i 

,on bottoi line? i 

iyes, wrap to hoie position i 



, DScrs 


L -- cursor left 








DScrsL 


BSR.S 


DScursO 






;reBove cursor 


DSdeci 


TST.W 


VRcursi(AO) 






,at beginning of line? 




BEQ.S 


DSwraps 






,yes, wrap to pre»ious line 




SUBQ.W 


IDScellW.WRc 


orsx 


(AG) 


.decieBent 1 character space 




BRA.S 


DScurs 






ishow cursor 
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i DScisH — catsoT home 
















OB&C 


inz 






DScisH 


BSR.S 


DScursO 


0B6e 


42&B 


8016 




DScisHl 


CLR.V 


vnicuisi(AO) ; 


0B72 


4268 


0018 






CLR.V 


VRcuisr(AO) 


0B7i 


6022 








BRA. 5 


DScQts i 


0B7I 


6112 






DSwtapi 


BSR.S 


DSwrip 


0B7II 


3140 


0016 






NOVE.V 


DO.VRcuisKAO) 


0B7E 


4A68 


0018 




DSdecy 


TST.V 


VRcursf(AO) 


QBB2 


6716 








BEQ.S 


DScars ; 


0B64 


0468 


OOOA 0018 






SUBI.W 


IDScellY.WRcnrsTUO) 


0B8A 


600E 








BRA.S 


DScots 


0B8C 


4280 






DSwrip 


CLR.L 


DO 


0B8E 


3828 


8012 






HOVE.V 


vniin9thi(A0),D0 


0692 


7406 








MOVEQ 


tOScenV,02 i 


0B94 


80C2 








DIVU 


D2,D0 


mi 


CDC2 








HULU 


D2,O0 


mi 


4E75 








RT5 




mk 


6130 






DScurs 


BSR.S 


DScisAd 


0B9C 


322A 


0004 




DScursO 


MOVE.W 


CSlpch(A2),Di 


8By 


S341 








SUBQ.V 


tl.Ol ; 


OBU 


2866 


0803 






HOVE . L 


VRcaiA<ii(A0),A4 


OBAi 


3A28 


OOIA 






MOVE.V 


VRbitofs(A0),O5 


OBAA 


2E2A 


OOOC 






MOVE . L 


CSBask(A2),D7 


OBAE 


0828 


0000 0021 






BTST 


tvect,VRattc2(A8) 


0BB4 


6704 








BOFF.S 


DScuisl 


OBBi 


EABF 








ROR.L 


05, D7 


OBBS 


6004 








BRAS 


DScats2 i 


OBBA 


4A64 






DScaisl 


T5T.V 


-U4) 


OBBC 


EBBF 








ROL.L 


05, D7 


OBBE 


4687 






DScQts2 


KOT.L 


D7 


OBCO 


BF94 






DScQts3 


EOR.L 


07, (A4) 


0BC2 


98F8 


0764 






SUBA.V 


CFscnofs.V,A4 


QBC4 


51C9 


FFFB 






D8RA 


01,DScars3 ; 


iUk 


4E75 








RTS 




9BCG 


4CA8 


0060 0016 




DScrsAd MOVEM.W WRcotsi(A0),D5-D6 


6BD1 


6100 


oeFs 






BSR 


DSaddi 


9B0& 


3147 


OOIA 






MOVE.V 


D7,WRbitof5(Ae) 


SBDA 


214C 


0008 






MOVE. I 


A4,WRcuradiU0) ; 


GBDE 


4E75 








RTS 





reaove carsoc 

lero cQirent cuisor X position 
tero current cursor ¥ position 
show cursor 



at top line? 
yes, show cursor 
decrenent 1 character space 
show cursor 

get current cursor X position 

qet character width 

return 

coapute cursor address 

get scan lines per character 

set loop counter 

get current cursor address 

get current cursor bit otfset 

get character aask 

vertical orientation? 



07 = positioned inverted aask 
invert character 



get current cursor position 
compute cursor address 
save cursor bit offset 
save cursor address 
return 
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, OScIAL — clear scieen 
















OBEO 


6100 


FF8C 




OSclAL 


BSR 


OScrsHl 










, DSclCS — ciear to end of sctee 
















!)BE4 








OScIES 


BSR.S 


OSclEL 


OB£i 




OBOQ 0021 






8TST 


tveit.WRattrZCAO) 


SBEC 










BON.S 


DSC1ES2 


OBEE 




0018 






MOVE.W 


WRcatsy(A0),D6 


mi 




OOOA 




DSciESl 


ADDI.V 


tDScellY.Oi 


mi 




0014 






MOVE.W 


WRlngthr(AO),CO 


OBFA 










CMP.W 


00, D6 


OBFC 










BCE.S 


DSclES? 


OBFE 










SUB.W 


06, DO 


3CO0 










CLR.V 


03 


0C02 










BSR.S 


OScltH 


GC04 










BRAS 


DSclES? 


OCOi 




0018 




OSclESZ 


MOVE.W 


WRcursr(AO),00 


OCOA 




OOOA 




DSciESa 


ADDt.W 


IDSceliy.DO 


OCOE 




0014 






CMP.W 


WRlngthf(AO),DO 


0C12 










BCE.S 


D5C1ES9 


flCH 










MOVE.W 


00,06 


OCU 










CLR.W 


OS 


OCU 










BSR.S 


DScIrV 


OCU 










BRAS 


DSclESS 


OCIC 


4E75 






DScIES» RTS 








































, OSclEL — cletr to end of line 
















ilClE 


6100 


FF7C 




DSclEL 


BSR 


OScutsO 


0C22 


4 CAS 


0060 0016 






MOVEM.W WRcarsi(A0>,DS-O6 


0C28 


0828 


0000 0021 






BTST 


•vert,WRattr2(A0) 


0C2E 


6704 








BOFF.S 


DSclELl 


0C30 


610C 








BSR.S 


DSdrV 


flC32 


6006 








BRAS 


OSclEU 


0C34 


700? 






OScIELl 


HOVCQ 


•OScelIY-1,00 


8C3i 


3605 








MOVE.W 


05,03 


0C3I 


6122 








BSR.S 


DSclrH 


0C3A 


6000 


Fr6Q 




DSC1EL2 


BRA 


DScursO 
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,fitst clear this line 

.vertical orientation? 

,yes, clear vertical screen 

; --- clear to end of horisontal screen 

;get current cursor Y position 

iincreaent to neii line 

,get bottom of screen liBit 

,at bottoi of screen? 

,yes, return 

.coapote nu>ber of scan lines to clear 

,set starting I position to 

.clear to bottoa of screen 

.return 

, "- clear to end of vertical screen 

;get current cursor Y position 

;increBent to neit line 

,at bottoi of screen? 

,yes, return 



, clear one vertical line 

, repeat until all lines cleared 



remove cursor 

get current cursor Z and ¥ 

vertical orientation 

no, clear horisontal line 

clear one vertical line 

show cursor 

DO s Iscanlines to clear 

clear one horiiontal line 
show cursor 



File: CC.PROH.TEXT 
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0C3E 


3828 


0012 


flC42 


9845 




0C44 


UOO 


0086 


0C48 


3238 


0764 


0C4C 


2C2X 


OOOC 


0C50 


EEBE 




0C52 


CD94 




0CS4 


98C1 




OCSi 


51CC 


FFFA 


flC5A 


4E75 




OCSC 


3828 


0012 


OC&O 


5244 




0C62 


3A04 




0Ci4 


9843 




OCU 


iiOO 


0064 


KU 


9847 




OCiC 


4A47 




OC&E 


&602 




(1C70 


4A5C 




0C72 


3604 




DC74 


0243 


OOOF 


{JC78 


E844 




flC7Jl 


5344 




0C7C 


72FF 




0C7E 


3401 




OC80 


EF69 




SC82 


Uik 




0CB4 


2A4C 




OCBi 


4A47 




OCSI 


6702 




izn 


C35D 




OCSC 


3C04 




0C8E 


iB06 




0C90 


425D 




0C92 


51CE 


FFFC 


0C94 


4A43 




ocn 


6702 




gC9A 


CSSS 




0C9C 


98F8 


0764 


KM 


51C8 


FFE2 


KM 


4E75 





1719« 


DSclrV 


MOVE.W 


VRln9thi(A0>,D4 


1720« 




SUB.V 


05,04 


1721* 




BSR 


DSiddr 


1722* 




MOVE.V 


CPscnofs.V.Dl 


1723* 




HOVEL 


CSaisk(A2),D6 


1724« 




ROR.L 


07,06 


1725* 


DScliVl 


AKD.L 


06. (A4) 


1726* 




SUBA.V 


D1,A4 


1727* 




DBRA 


04,DScIrVl 


1728* 




RT5 




1729* 








1730* 


DScliH 


MOVE.V 


VRlngthi(A0).D4 


1731* 




ADDQ.V 


tl,D4 


1732* 




HOVE.V 


04,05 


1733* 




SUB.V 


03,04 


1734* 




BSR 


OSiddi 


1735* 




SUB.V 


07,04 


1736* 




TST.V 


07 


1737* 




BHE.S 


OScliHl 


1738* 




TST.V 


(A4)f 


1739* 


DScliHl 


HOVE V 


04,03 


1740* 




ANDI.V 


t$F,03 


1741* 




ASR.V 


14,04 


1742* 




SUBQ.V 


11,04 


1743* 




MOVEQ 


1-1,01 


1744* 




HOVE.V 


01,02 


1745* 




LSL.V 


07,01 


1746* 




L5R.V 


03,02 


1747* 


DScIrH2 


HOVEL 


A4,AS 


1748* 




TST.V 


07 


1749* 




BEQ.S 


05clrH3 


1750* 




AND.V 


01. (A5)* 


1751* 


DScIrH3 


HOVE.V 


04,06 


1752* 




BHI.S 


OScIrHS 


1753* 


DScliH4 


CLR.V 


(A5)* 


1754* 




OBRA 


D6,0ScIcH4 


1755* 


DScliH5 TST.V 


03 


1756* 




BEQ.S 


0SclrH6 


1757* 




AHD.V 


02. (A5) 


1758* 


DSGlrH6 


SUBA.V 


CPscnofs.V,A4 


1759* 




DBRA 


D0,DScIrH2 


1760* 




RTS 




1761* 









get length of line 

compote naiber of scan lines cleat 

coApate cursor address 

get bytes per scan line 

get character mask 

align character task 

clear one scan line 

coapate address of neit scan line 

repeat to end of line 

return 

05 = I, 06 = r 



A4 = addr(i,y) , 07 = bitnuB 



File CC.PROH.TEXT 
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OCAi 3028 0016 

OCAA COBC 0000 FFFF 

OCBO 7430 

0C82 60C2 

0CB4 S240 

0CB6 C0C2 

OCBI B0i8 0012 

OCBC 6302 

OCBE 4E75 

decs 6100 FEOA 

0CC4 3140 0016 

0CC8 6000 FEOO 



OCCC 2S68 0004 

OCDO 0828 0000 0021 

0CO6 6618 

0CD8 DA68 G09C 

OCDC 3E0S 

OCDE 0247 OOQF 

0CE2 EB4S 

0CE4 E34S 

0CE6 98CS 

0CE8 CCF8 0764 

OCEC ??C6 

flCEE 4E75 

OCFO DC68 OOOC 

0CF4 3E06 

0CF6 0247 OOOF 

OCFA E846 

OCFC E346 

OCFE 06C6 

OOOO CAF3 0764 

0D04 99CS 

0OO6 4E7S 



1763' 
1764 
1765 
1766 
1767 
1768 
1769' 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777' 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1768 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806< 
1807< 
1888 



OStib KOVE.V VReQrsi(AO),D0 



AND.L 


•$FFFr,DO 


HOVEQ 


tDSceIiV«8,02 


DIVU 


02,00 


AODQ.V 


tl,DO 


MULU 


02.00 


CHP.W 


VRlngthi(A0),O0 


BLS.S 


DStabl 


RTS 




BSR 


DScarsO 


HOVE.W 


DO.VReuisKAO) 


BRA 


DScuts 



get cDtient cursor X position 
clear hi word 



find neit tab to right 



new I ) right? 
no, change i 
return 

ireBove cursor 

isave new cursor I position 

;show cursor 



OSaddr -- coapute cursor address 



05 = I 

06 = 1 



Eiit: OSaddr (i.y) in A4, bit offset in 07 



OSaddr HOVEA.L VRhoaept(A0),A4 

BTST •Tert,WRaltr2(A0) 

SONS DSaddrV 

DSaddrK AOO.V VHlhoieof (AO).DS 

MOVE.W 05,07 

ANDl.V 8$F,D7 

ASR.V 14,05 

ASL.V 11,05 

SUBA.V DS,A4 

NULU CPsGnofs.V,06 

SUBA.L 06, A4 
RTS 

DSaddrV AOO.V VRhOAeof<A0),O6 

KOVE.V 06,07 

ANOI.V •$F,07 

ASR.V 14,06 

ASL.V 11,06 

AODA.V 06, A4 

HULU CPsenofs.V,DS 

SUBA.L 0S,A4 
RTS 



get hoie pointer for orientation 

vertical orientation? 

yes, GOBpute address for rerticai 



File: 


CC.PROK.TEIT 
















1810* 














1811* 


; }a«p 


tables 










1812» 


; 






0D08 


FESi 




1813* 


DScTbl 


DATA.V 


DScrsL-DScTbl 


ODOA 


FF9E 




1814* 




DATA.W 


DSt»b-DScTbl 


ODOC 


FE3E 




1815* 




DAT AW 


DSc(sD-DScTbl 


ODOE 


FE2X 




IBU* 




DATA.V 


DScisU-DScTbl 


ODIO 


FE14 




1817* 




DATA.V 


DScrsR-DScTbl 


ODU 


FE2E 




1818* 
181?* 




DATA.V 


DSrttn-DScTbl 


0D14 


0O4S 


FES6 


1820* 


DSeTbl 


DATA.V 


$48,DSccsH-DSeTbI 


ODU 


004h 


FECC 


1821* 




DATA.V 


MA.DSclAL-DSeTbl 


ODIC 


004B 


FFOA 


1822* 




DATA.V 


$4B,DSclEL-DSeTbl 


0D20 


0059 


FEDO 


1823* 




DATA.V 


$S9,DSclES-DSeTbl 


0D24 


FFFF 




1824* 
1825* 




DATA.V 


-1 


mi 


FCE8 




1826* 


DSsTbl 


DATA.V 


DSstO-DSsTbl 


0D2I 


FD18 




1827* 
1828* 




DATA.V 


DSesc-DSsTbl 


mk 


00010D4E4 


182?* 


OSwndH 


DATA.L 


DScsetH 


0D2E 


0008DSSE 


1830* 




DATA.L 


DShomeK 


0D32 


0008DSSE 


1831* 




DATA.L 


DShoieH 


0D3i 


0000 


0000 0000 


1832* 




DATA.V 


0,0,0 


0O3C 


02CF 


022F 


1833* 




DATA.V 


DSaaiXH.DSMiYH 


0D49 


0000 


0000 0000 


1834* 




DATA.V 


0.0,8 


O04i 


0000 


022F 


1835* 




DATA.V 


O.DSsaiYH 


0D4A 


00 IC 




183i* 




DATA.B 


0.$1C 


0D4C 


00 24 




1837* 
1838* 




DATA.B 


0,VRleA9th 


0O4E 


0OQl0D?it 


1839* 


DScsetK DATA.L 


DSesetV^CSdata 


0DS2 


OOOA 


OQOi 


1840* 




DATA.V 


DSceIlY,DScellV 


mi 


0020 


OOSA 


1841* 




DATA.V 


32,90 


ODSX 


FFFF 


FFCO 0000 


1842* 
1843* 




DATA.V 


4FFFF,$FFC0,0 








1844* 




; use fertical charicler 








1845* 














1846* 
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etUH 


back space 


ctl-I 


tab 


ctl-J 


line feed 


ctl-K 


cnrsoi up 


ctl-L 


caisoc right 


ctl-M 


carriage return 



;esc-H: hoie cursor 

,esc-J. clear screen 

,esc-K: clear to end of line 

.esc-Y: clear to end of screen 

,end of table 

.state 
;state 1 

;VRcharpt 

;home 

, address 

iVRhoaeof.VRbasei.VRbase; 

iright,bottoa 

;i,y,VRbitof5 

,VRgrorgi,VRgrorgy 

.attrl,attr2 

;state, VRrcdIen 

character set record pointer 
CSlpch, CSbpch 
CSfcstch, CSIastch 
•ask, dnuiy, at t ribs 



file CC.PROM TEIT 
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006(1 


0001CD84 








1848* DSwndV 


DATA . L 


DScsetV 


WRcharpt 


flD64 


0008D506 










DATA . L 


DShoaeV 


hoae 


ODiS 


00080506 










DATA . L 


DShoaeV 


addiess 


CDcC 


OCOO 


0000 


0000 




DATA.V 


0,0,0 


VRhoBeof,VRbasei,VRbasef 


OD?: 


02 


tD 


02CF 








DATA.y 


D5»ai][V,DSsBiJ?V 


right, bottoa 


CD 76 


00 


30 


0000 


0000 




DATA.V 


0,0,0 


i,y,VRbitofs 


CD7C 


00 


DO 


02 


[F 








DATA.W 


O.DSaaiVV 


yRgrorgi,VRgrorgy 


ODea 


00 


lb 












DATA.B 


fl,$lD 


attri,attr2 


0D32 


00 


24 












DATA . B 


O.VRlength 


state, WRrcdIen 


flD84 


30010C56 








1858* DScsetV 


DATA . L 


DScsetV+CSdati 


character set record pointer 


DD8J 


0006 


OOOA 








DATA.y 


D5ceIIV,DScen¥ 


CSIpch, CSbpch 


0D8C 


3020 


C05A 








DATA.V 


32,90 


CSfrstch, CSlastch 


OD90 


003F 


FFFF 


0100 




DATA.V 


$003F,$FFFF,256 


Bask, duMy, attribs 








































, vetti 


cai chacactec set data 


























CD9i 








00 








DATA . a 


0,0,0,0,0,0 


blank 


0D9-: 








08 








DATA . B 


0,0,$FD, 0,0,0 


i 


0DA2 








EO 








DATA.B 


0,$E0,fl,$EG,0,0 


" 


5DA8 








FE 








DATA . B 


S28, JFE, $28, $FE, 528,0 




(iDAE 








54 








DATA.B 


$24, $54, 5FE, $54, $48,0 




2D84 








26 








DATA . B 


$C4,$C8,$10,$26,$46,0 




ODBA 








04 








DATA.B 


$6C,$92.$a,$04,$fiA,0 




ODCO 








CO 








DATA.B 


0,0, $20, SCO, 0,0 




ODCi 








62 








DATA . B 


0, $38, $44, $82, 0,0 




ODCC 








44 








DATA.B 


0,0, $82, $44, $38,0 




QDD2 








iA 








DATA.B 


$08,$ZA,$1C,$2A,$08,0 




0DC8 








08 








DATA . B 


$08, $08, $3E, $08, $08,0 




ODDS 








08 








DATA.B 


0, $81, $07, 0,0,0 


, 


0DE4 








10 








DATA . B 


$10, $10, $10, $10, $10,0 


- 


SDEA 








00 








DATA. a 


0,0, $02, 0,0,0 




ODFO 








20 








DATA.B 


$04, $68, $10, $20, $40,0 


/ 


ODFi 








A2 








DATA.B 


$7C,$8A,$92,$A2.$7C,0 


Q 


ODFC 








02 








DATA.B 


0, $42, $FE. $02,0,0 


1 


0E02 








52 








DATA.B 


$46, $8A, $92. $92, $42,0 


2 


0E08 








B2 








DATA.B 


$84,$82,$92,$B2,$CC,0 


3 


SEOE 








FE 








DATA.B 


$18,$2e,i48,$F£,$08,0 


4 


OEH 








A2 








DATA.B 


$E4,$A2,$A2,$A2,$9C,Q 


5 


DEIA 








92 








DATA.B 


$3C,$52,$92.592,$1C,0 


6 


0E20 








AO 








DATA.B 


$80,$gE,$90,$Afl.$C0,0 


7 


HUi 








92 








DATA.B 


$6C,$92,$92,$92,$6C,0 


8 


0E2C 








94 








DATA . B 


$62, $92, $92, S94, $78,0 


9 


0E32 








SO 








DATA.B 


0,0, $24,0,0,0 




0E38 








08 








DATA.B 


0, $01, $26, 0,0,0 




8E3E 








44 








DATA.B 


0, $10, $28, $44, $82,0 


< 


0E44 








28 








DATA . B 


0, $28, $28, $28, $28.0 


= 


0E4A 








28 








DATA.B 


0, $82. $44. $28. $10.0 


) 


0E50 






n AO 








DATA.B 


$40, $80. $9A. SAO. $40.0 


? 


0ES4 
















DATA.B 


$7C,$32,$9A.$9A.$7A,0 


e 


0E5C 
















DATA.B 


$3E.$48,S88,$48,$3E,0 


A 


GE62 
















DATA.B 


$FE,$f2,$92,$92,$6C.O 


B 


0E68 
















DATA.B 


$7C, $82. 182, $82, $44,0 


C 


mi 
















DATA.B 


$FE,$82,$82,S83.$7C,0 
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0E74 


FE 


n 


92 




82 






DATA.B 


$FE, 592, $92, $82, $82,0 




un 


FE 


90 


90 




80 






DATA . B 


$FE, $90, $90, $80, $80,0 




0E80 


7C 


82 


8A 




4C 






DATA.B 


$7C,S82,$8A.$8A,$4C,0 




OESi 


FE 


10 


10 




FE 






DATA B 


$FE,$IO,$10,$10,$FE,0 




0E8C 


00 


82 


FE 




00 






DATA.B 


0,$82.$FE,$82,0,0 




0E?2 


04 


82 


82 




80 






DATA . B 


$04, $82, $82, $rc, $80,0 




0E9I 


FE 


10 


28 




82 






DATA.B 


$rE,$10,$28,$44,>82,0 




0E9E 


FE 


02 


02 




02 






DATA.B 


$FE, $02, $02, $02, $02,0 




0EA4 


FE 


40 


30 




FE 






DATA.B 


$FE,$40,$30,$40,$FE,0 


, M 


OEAA 


FE 


20 


10 




FE 






DATA . B 


$FE,$20,$10,$08,$FE,fl 


, N 


OEBO 


7C 


82 


82 




7C 






DATA.B 


$7C,$82,$82,$82,$7C,Q 


, 


OEBi 


FE 


90 


90 




60 






DATA . B 


$FE, $90, $90, $90, $60,0 


, P 


OEBC 


7C 


82 


SA 




7A 






DATA.B 


$7C,$82,$8A,$84,57A,0 


, Q 


0EC2 


FE 


90 


98 




62 






DATA.B 


$FE, $90, $98, $94, $62, 3 


, R 


OECJ 


i4 


92 


92 




4C 






DATA.B 


$64,$92,$92,$92,$4C,0 


, s 


OECE 


10 


80 


FE 




80 






DATA . B 


$80, $80, $F£, $80, $80,0 


, T 


0ED4 


FC 


02 


02 




fC 






DATA . B 


$FC,$02,$02,$02,$FC,0 


, u 


OEDA 


F8 


04 


02 




F8 






DATA . B 


$F8,$04,$02,$04,$F8,0 


, V 


OEEO 


FC 


02 


IC 




FC 






DATA.B 


$FC,$02,$1C,S02,$FC,0 


, w 


0EE6 


C& 


28 


10 




C6 






DATA.B 


$C6,$28,$10,$28,$C4,0 


, X 


OEEC 


CO 


20 


IE 




CO 






DATA.B 


$C0,$20,$lE,$20,SCO,0 


, Y 


0EF2 


86 


8A 


92 




C2 


QQ 




DATA.B 


$86,$8A,$92,$A2,$C2,0 


, 2 


0EF8 


0000 












DATA.V 
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OEFA 


227C 


9C00 


OFOO 


7001 




OFO: 


1231 


03FF 


0FG4 


323C 


GOOl 


OFOA 


670C 




OFCC 


5240 




OFflE 


B07C 


0004 


CF12 


6FEE 




Otl4 


7EFF 




OFU 


60S6 




QFIB 


IICO 


0700 


OFIC 


4238 


0701 


GF20 


4DrA 


OOiA 


OF 2 4 


21CE 


C7H 


0F28 


4DFA 


OlOC 


0F2C 


21CE 


0718 



1»27« 




include 


'CC.FROH.LD' 


1?28« 








1?2?« 


, File 


CC. PROM. LD. TEXT 


1930* 


, Dite: 


29-Jun-«2 


1931* 


. By 


L. Franklin 


1932« 








1933" 


, 






1934" 


, Lboot 


- Loca 


1 CoiTQs disk 


1935* 








1936« 


Lboot 


Borea 1 


«CPslltrp,al 


1937» 




BOteq 


11, dO 


I938« 








1939« 


LbootlO 


■ote.b 


-l{al,dO),dl 


1940* 




op.b 


•DTlocl,dl 


1941« 




beq.s 


Lboot30 


1942« 




addq 


11, dO 


1943* 




cip.w 


14, dO 


1944« 




ble.s 


LbootlO 


1945* 




■oieq 


l-l,d7 


1944* 




bra.s 


Lboot90 


1947* 








1948* 


Lboot30 


MTe.b 


dO.CPbtslot.w 


1949* 




clt.b 


CPbtsrir.w 


1950* 




iea 


LDbUI0,a6 


1951* 




■o»e.I 


a6,CPbIkio.w 


1952* 




lea 


LDdskIG,a6 


1?53» 




BOTC . i 


a6,CPdskio.w 


1954* 








1955* 


, fall 


through 


to LbootlO (us 


1954* 








1957* 









; local disk driver 



.get pointer to slot 1 type 
get initial slot nuaber 

get device type 

IS this a local disk interface^ 

yes, use it for booting 

update slot nuaber 

have we looked at all slots? 

no, check neit slot 

set error return code 

return (can not find local disk) 

set boot slot nuRber 

set boot server nuaber 

set boot disk bik i/o subr pointer 

t 

set boot disk i/o subr pointer 
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, LbootSO -- Get 4 boot blocks i 


oB Corvus disk 












(code shared by local disk boot and OMNINET disk b 


















OF30 


207C 


0008 EOOO 




LbootOO 


•ofea.l 


lUSRbase.aO 


get block baffet pointer 


0F34 


1C38 


0701 






Bove.b 


CPbtsrwr.w.di 


get boot server nuBber 


0F3A 


iD32 








blt.s 


Lboot90 


]ust return it invalid server 


0F3C 


E14E 








Isl.w 


18, di 


« 


0F3C 


1C38 


0700 






■o»e.b 


CFbtslot.w.di 


get boot slot nuaber 


0F42 


lOBC 


0014 






■ove.b 


I$14,(a0) 


set "boot" coBBand 


0F4i 


103C 


0007 






■oie.b 


I$07,d0 


set boot block nunber 


0F4A 


323C 


0603 






BO V e . w 


t$i03,dl 




0F4E 


U20 








bst s 


LDgetBB 


get neit boot block 


OFSO 


iDlC 








blt.s 


Lboot90 


just return li error 


0F52 


323C 


0403 






■ove.w 


•$403, dl 




OFSi 


6118 








bsr s 


LDgetBB 


get neit boot block 


OFSB 


iDH 








bit s 


Lboot90 


just return it error 


OFSA 


323C 


0203 






love.w 


•$203, dl 




0F5E 


UIO 








bsr.s 


LDgetBB 


get neit boot block 


0F6Q 


6D0C 








blt.s 


Lboot?0 


just return if error 


0Fi2 


323C 


0003 






Bove.w 


•$3,dl 




0F6i 


&108 








bsc.s 


LDgetBB 


get neit boot block 


0Fi8 


&D04 








bits 


Lboot9Q 


just return if error 


0F6A 


DOFC 


0004 






adda.w 


I$4,a0 


get pointer to boot code 


OFiE 


4E75 






Lboot90 


rls 




return 


OF 70 


1140 


0001 




LCgetBB 


Bove.Ii 


dO.KaO) 


set boot block nuaber 


0F74 


7402 








Boieq 


•2,d2 


get nuBber or bytes to send 


0F7< 


7A33 








■oveq 


iDskVrit,d5 


get "write" coaaand 


0F78 


4E96 








isr 


(aU 


send write comaand 


0F7JI 


DOCl 








adda.w 


dl,aO 




IJF7C 


343C 


0201 






■ove.w 


•513, d2 


gel nuaber of bytes to receive 


0FB8 


7 A3 2 








moveq 


IDskRead.dS 


get "read" coaaand 


0F&2 


4En 








jsr 


(a6) 


send read coaaand 


0F84 


6D04 








bits 


LDgetBX 


just return if error 


SF8& 


90C1 








saba.w 


di.aO 




QF88 


S3 40 








subq 


tl.dO 


update boot block nuaber 


OFaJt 


4E75 






LDgetBX 


Its 




return 
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0F8C 




E040 


0F90 




F6E6 


0F94 






OFu 






OF^B 






3F9A 






0F9C 






OFvE 






OFAfl 






CFA2 






0FA4 




0033 


OFA» 







DFA* 


343C 


fllFF 


OFAE 


G829 


0007 


OFB< 


&6Fd 




OFE« 


1358 


0001 


OFBi 


;ilCA 


FFFZ 


OFBJ 


6156 




CFC 


iE29 


OOSl 


0FC1 


oCiC 





2004' 
2005' 
2006> 
2007' 
2008' 
2009' 
2010 
2011' 
2012 
2013 
2014 
2015' 
2016' 
2017' 
2018' 
2019' 
2020' 
2021' 
2022 
2023 
2024 
2025 
2026 
2027' 
2028' 
2029 
2030 
2031 
2032' 
2033 
2034' 
2035' 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 



LDbiklO - Reid or wiite a local disk block subroatine 

Enter: AO . L - Buffer address 
OO.V - Block noBber 
Dl V - Drive naiber 

DS.V - Read (S32) or Vrue ($33) comaand 
D6.E - Slot nuiber 

Eitt. AO L - Neit free location in buffer 
DO.V - Updated block naaber 
D7.V - lORESULT (disk controller status^ 

All other registers are preserved. 

Corvus controller status register [3(al)]: 

bit 7. controller read; off - ready 



on - not ready 



bit 6 . bus direction 

LDblklO Bovea i al/d0-d2,-(sp> 

bsr SlotAdr 

Bove.w Q5,d2 

bsr.s LDsendi 

aove.w dl,d2 

bsr s LOsend 

aovew dO,d2 

bsr.s LOsend 

Isr.w 18, d2 

bsr.s LDsend 

capi.w •OskVrit,d5 

bne.s LDriol 



aore.w t$lFF,d2 

LDwiol btsl I7,3(ii^ 

bon s LDwioi 

aove b (aO)t,l(al) 

dbra d2,LDwiol 

bsr.s LOwait 

aove.b i(al),d7 

bras LDrtrn 



off - host to cntir on - cntlr to host 

aave registers 
Al = I/O port address 
Send a read ($32) or 
write ($33) block coaaand 

Send drive nuaber 

Send LSB of block 

Send MSB ot block 

Are we reading or writing' 

Reading 

Write block processing 

Block siie - 1 

Test controller status 

Wait until controller readf 

Send a byte 

Loop until done 

Wait for line to turn 

Fetch result code 

Return 
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2049* 
















2050* 
















2051* 








0FC4 


6 HE 






2052* 


LDtiol 


bsc.s 


LDwail 


ores 


1E29 


0001 




2053* 
2054« 




■ove.b 


l(al),d7 


OFCC 


0829 


0007 


0003 


2055* 


LDrio3 


btst 


I7,3(al) 


(1FD2 


46F8 






2054* 




bon.s 


LDrioS 


0FD4 


0829 


0006 


0003 


2057* 




btst 


#4,3(al) 


OFDk 


4704 






20S8* 




boft.s 


LDitrn 


OFDC 


10E9 


0001 




2059* 




»o»e.b 


l(al),(a0U 


OFEO 


40EA 






2060* 
2041* 




bra.s 


LDrio3 


0FE2 


4CDF 


0207 




2062* 


LDttrn 


aovet.l 


isp)t,al/dO-di 


OFE& 


5240 






2043* 




addq.w 


tl.dO 










2064* 


; 


aove. b 


d7,CPdtskRC.w 


0FE8 


4887 






2065* 




eit.w 


d7 


OFEk 


4E75 






2044* 
2067* 




rts 





Read bloci: piocessing 

Wait for the line to turn 
Fetch result code 

Test controller status 

Wait until controller read; 

Test bus direction 

Finished if 'host to contioller" 

Store neit byte 

'Zo get any sore 

Restore registers 

Update block noBber 

Save current disk return code 

Sei return condition code 

Return 
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2069« 




















2070« 


, LDsend — Send a bjfte to 


the d 


sk port subroutine 










2071* 




















20?2« 




Enter: 


ALL - I/O 


port 


iddress 










2073* 






D2.B - Byte 


to send 










2074« 




















2075* 




Ail reg 


isters are f 


reser 


red. 










2076* 












OFEC 


0829 


0007 


0003 


2077« 


LDsend 


btst 


t7,3(al; 




Test controller status 


0FF2 


64F8 






2078* 




bon.s 


IDsend 




Wait until controller ready 


OFF^ 


1342 


OOQl 




207?* 




■ofe.b 


d2,l(al) 




Send the byte 


0FF8 


4E75 






2080* 
2081* 
2082* 




rts 






Return 










2083* 


, LOsendl — Send first byt 


e to 


the disk port subroutine 










2084* 




















2085* 




Enter: 


ALL - I/O 


port 


iddress 










2086* 






D2.B - Byte 


to send 










2087* 




















2088* 




Ail reg 


isters are ( 


reser 


red. 










2089* 














46DF 






2090* 


LDsendO 


>OTe .w 


(sp>t,sr 




enable interrupts 










2091* 




nop 






leave soae tiae tor interrupt pro 










2092* 




nop 






t 










2093* 


LDsendl 


love.w 


sr,-(sp) 




sa»e interrupt ievel 






0700 




2094* 




ori.w 


#$0700, sr 




disable interrupts 






0007 


0003 


2095* 




btst 


I7,3(al) 




test controller status 










2094* 




bon.s 


LDsendO 




wait until controller ready 






0001 




2097* 




sove.b 


d2,l(al) 




send first byte 




46DF 






2098* 




Bove.w 


(sp)i,sr 




enable interrupts 




4E75 






2099* 
2100* 
2101* 




rts 






return 










2102* 


, LOwai 


t - Vai 


t for the line to 


turn subroutine 










2103* 




















2104* 




Enter: 


ALL - I/O 


port address 










2105* 












lOU 








2iO«* 


LOwait 


Bofe.I 


dO,-(sp) 




save register 


1018 








2107* 




Boveq 


ilSO.dO 




wait a little bit 


iOlA 




FFFE 




2108* 


LOwaitl 


dbra 


dO, LOwaitl 




t 


lOlE 








2109* 




Bo«e.I 


(sp)«,dO 




restore register 


1020 








2110* 




bsr.s 


LOwaitZ 




check two times in case of glitch 


1022 








2111* 
2112* 




nop 






* 


1024 




0007 


0003 


2113* 


LDwait2 


btst 


i7,3(al) 




test controller status 


102A 








2114* 




bon.s 


LOwai t2 




wait until controller ready 


102C 




0006 


0003 


2115* 




btst 


I6,3(an 




test bus direction 


1032 








2116* 




boff.s 


LDwait2 




wait until "controller to host" 


1034 








2117* 
2118* 




rts 






return 
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103i 48E7 FOCa 

i03A ilOO F60C 

i03C 3602 

1040 S343 

1042 0C4S 0033 

104i ai4 



1048 1416 

104A ilB4 

104C iOOi 

104E 1418 

1050 6100 Ff?A 

1054 SICB FFF8 

loss 7E00 

lOSA &01E 



lose 61B8 

lOSE 1E29 0001 

1062 10C7 

1064 0829 0007 

106A 66F8 

106C 082? 0006 

1072 6706 

1074 I0E9 0001 

1078 60EA 

107A 4CDF 830F 

107E 4887 

1080 4E7S 



2120' 
212r 
2122' 
2123' 
2124 
212S 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134' 
2135' 
2136 
2137' 
2138 
2139 
2140' 
2141 
2142 
2143 
2144< 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159' 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 



LOdsklO - Read ftoa/Vrite to Corvus disk 

Entei: AOL - Baffec address 
D2.W - Count 

D5.V - Read ($32) or Write ($33) couand 
D6.B - Slot noiber 



Eiit: 



D7.V - lORESULT (disk controller status) 



AH other registers are preserved 



LDdsklO ■oven. I d0-d3/a0-al, 



bsr 


SlotAdr 




aoTe.w 


d2,d3 




sobq.w 


11, d3 




capi.w 


IDskVrit 


,d5 


bne s 


LDdsk2 





'(sp)iSave registers 

,A1 = I/O port address 

,get count 

,3et DBRA loop length 

;Are we reading or writing? 

;Reading 



Write Corvus disk processing 



Bove.b 
bsr .s 
bra 5 

LDdskl aoveb 
bsr 

LDdskla dbra 
Boveq 
bras 



(a0)*,d2 
LDsendl 
LDdskla 
(aO)4,d2 
LOsend 
d3, LDdskl 
10, d7 
LDdsk9 



i Read Corvus disk processing 

LDdsk2 bsr.s LDwait 
love.b l(al),d7 
Bove.b d7,(aO)4' 

LDdsk3 



btst 


•7,3(al) 


bon.s 


L0dsk3 


btst 


•6,3(al) 


boff.s 


LDdsk9 


nove.b 


l(al),(aO)^ 


bra.s 


LDdsk3 


■ovetl 


(sp}4,d0-d3/a( 


■ove.b 


d7,CPdiskRC.w 


eit.w 


d7 


rts 





get iirst byte 
send iirst bfte 
send rest of bytes 
get neit byte 
send neit byte 
loop until done 
force successful re 
finished 



Wait for the line to turn 
Fetch result code 
Store first byte 

Test controller status 

Wait until controller ready 

Test bus direction 

Finished if "host to controller" 

Store neit byte 

Co get any more 



Save current disk return code 
Set return condition code 
Return 
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2169* 










2170« 










2171« 










2172* 










2173* 










2174* 










2175* 










2176* 










2177* 


1082 


48£7 


8040 




2178* 


i08i 


ilOO 


F5C0 




2179* 


108A 


3E3C 


C7B0 




2180* 
2181* 


108E 


i37C 


OOFF 


0001 


2182* 


1094 


303C 


0400 




2183* 


1098 


51C8 


FFFE 




2184* 


109C 


082? 


0006 


0003 


2185* 


iOAi 


6606 






2186* 


1DA4 


ilCF 


FFE8 




2187* 


lflA8 


600C 






2188* 
2189* 


ICAA 


082? 


0007 


0003 


2190* 


13BI1 


6708 






2191* 


10B2 


51CF 


FFF6 




2192* 
2193* 


iOBi 


7EFF 






2194* 


lose 


600A 






2195* 
2196* 


lOBA 


0C29 


a08F 


0001 


2197* 


IOCS 


6dCC 






2198* 


10C2 


7E00 






2199* 
2200* 


i!lC4 


4CDF 


0201 




2201* 


10C8 


4A47 






2202* 


IQCA 


4E75 






2203* 
2204* 
2205* 



; LOsfnc -- Synchroniie with Corrus disk contcoilei 

Enter. D6.B - slot nutber 

Eiit. D7.V - = no tiaeout (EG), -1 = tiaeout (NE) 
, All other registers are preserved. 



LDsfnc BOTea.i d0/al,-(sp} 

bsr SlotAdr 

aove.w 12000, d7 

LDsTncl Bove.b ISFF.Kal) 

tove.w #1024, dO 

LDsyncZ dbri dO.LDsTncZ 

btst I6.3(al) 

bon.s LDsync3 

dbra d7,LDsrncl 

bras LOsyncS 

uDsync3 btst •7,3(al) 

bofLs LDsync6 

dbra d7,LDsync3 

LDsyncS aotreq i-i,d7 

bras L0syiic9 

LDsync6 cipi b l$8F,i(ai) 

bne.s LOsyncl 

■oveq t0,d7 

L0sync9 aovea.l (sp)^,dO/ai 

tst.w d7 
rts 



,save registers 
,get slot address 
,set tiaeout counter 

,send invalid coaaand to controller 
;wait about 1 as 

itest bus direction 
;go on if "controller to host" 
,send invalid coaaand again 
,set tiaeout error and return 

; test controller status 
,go on it controller ready 
;check contcoiler status again 

.indicate controller tiaeout 
;retura 

idid controller respond with error? 
,no, send invalid coaaand again 
, indicate no controller tiaeout 

irestore registers 

;set return condition code 

;returo 
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00000000 
00000001 
00000002 
00000003 
00000004 



00000006 
OOOOOOOi 
00000007 
00000008 
OOOOOOOA 

oooooooc 



QOOOOOOE 
OOOOOOOE 



00000012 
00000014 



00000018 
00000018 
00000019 
OOOOOOIA 
OOOOOOIC 
OOOOOOID 
OOOOOOIE 
00000020 
00000022 
00000023 

00000024 
0Q00002S 
00000026 
00000028 
0000002C 



2207' 
2208 
2209 
2210 
2211 
2212 
22131 
2214^ 
2215 
22U 
2217' 
2218 
2219' 
2220 
2221 
2222 
2223 
22241 
2225 
2226 
2227' 
2228' 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237' 
2238 
2239 
2240 
2241 
2242' 
2243' 
2244' 
2245 
2246' 
2247 
2248 
2249 
2250 
2251 
2252' 
2253 
2254' 
2255 
2256 
2257 
2258 
2259 



include 'CC.PROM.OD' 



File: CC.PROM.OD.TEIT 
Date: 29-Jun-82 



OMNINET disk driver diti 4rei equates 



iOHNINET disk druei 



DCid EQU 
DCdrv EQU 
DCbiklo EQU 
OCblkhi EQU 
DClen EQU 





IfOCad 

2^DCBd 

3^0Cad 

4fDCBd 



byte - disk couiand oh'set 

byte - oftset for drive nuaber 

byte - LSB of block nuiber to read or write 

byte - HSB 

word - length ot request (in bytes) 



result vector and header used for ail setuprecv couands 



RHdr EQU 
RHpktRC EQU 
RHsor EQU 
RHpktLN EQU 
EHdskLN EQU 
RHdskRC EQU 



OtRHdr 
URHdr 
2tRHdr 
4fRKdr 
6^RHdr 



byte - return code fion transporter 

byte - the source of the aessaqe 

word - total length oi data portion of packet 

word - length of info returned froa drive 

byte - return code trot drive 



result vector and header for ail sendasg coaaands 



SHdr EQU 
SHpktRC EQU 
; EQU 
i EQU 
SHtoLN EQU 
SHfaLN EQU 



14 

O^SKdr 

USHdr 

2^SHdr 

4>SHdr 

6tSHdr 



GData EQU 



byte - return code froa transporter 

byte - unused 

word - unused 

word - nuaber of bytes to send to drive 

word - nuaber of bytes expected froa drive 

,word - area to receive "GO" into 



area used for constructing Transporter coaaands 



TCad EQU 
TCop EQU 
TCrADhi EQU 
TCrADIo EQU 
TCsock EQU 
TCdADhi EQU 
TCdADIo EQU 
TCdtaLN EQU 
TChdrLN EQU 
TCdest EQU 

ODdw EQU 
OOdwhi EQU 
ODdw 1 EQU 
ODwrAD EQU 
ODvalid EQU 



24. 

OfTCad ;byte - op code 

UTCad ,byte - result address HI 

2iTCad ,word - result address KED, LO 

4fTCad ,byte - socket nuaber 

StTCad ,byte - data buffer addiess HI 

6-t-TCBd ,word - data buffer address MED, 

8fTCad iword - data length 

lO^TCad ibyte - header length 

lUTCad ibyte - destination host nuaber 



36 

37 



40 
44 



,lint - teaporary buffer (for 3 byte nabrs) 

ibyte - teaporary HI 

;word - teaporary HID, LO 

;lint - to save buffer address for CVrites 

iword - for aarking buffer as valid 
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00030FA1 
00030F7F 
GOOOFFFE 



QOOOOQFF 
OOOOuOFE 
OOOOOOCO 

OOOOOOBO 
OOOC0081 
00000082 
0000CO83 
G0O0GO84 
00000085 
GOOOOOSi 

00000090 

oooooon 

00000092 



OOOOOOFO 
G0G0004G 
0QQ0002C 
00000010 
00000008 
00000002 
OOOOOCOl 

OOOOOGAG 
OOOOOOBO 



2261 
2262 
2263 
2264 
2265 
2266 
22671 
2268 
22691 
2270 
227r 
2272 
2273' 
227f 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
22S3' 
2284 
2285 
2286 
2287 
2288 
2289< 
2290 
2291 
2292 
2293' 
2294 
2295 
2296 
2297 
2298 



StiAdr EQU 
EdjAdr EQU 
TOintvl EQU 



$30FA1 
$30F7F 
$FFFE 



addiess cf Transporter register 

address of VIA register A, used for Omninel ready 

tmeoot interval 



Transporter Return Codes 



Waiting EQU 
CidAcpt EQU 
Echoed EQU 

CaveUp EQU 
TooLong EQU 
NoSockt EQU 
HdrErr EQU 
BadSock EQU 
Inuse EQU 
BadDest EQU 

NoTrans EGU 
TiaeOut EQU 
NoEufr EQU 



5FF 
$FE 
5C0 

$80 
$81 
$82 
$83 
$84 
$85 
$86 

$90 
$91 
$92 



Transporter Opcodes 



RecfOp 

SendOp 

InitOp 

EndOp 

DebOp 

EchoOp 

VhoOp 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



RestSkt EQU 
CnstSkt EQU 



$F0 
$40 
$20 
$10 
$08 
$02 
$01 

$A0 
$B0 



echo couand was successful 

aborted a send couand after MaiRetries tries 

last aessage sent was too long tor the receifer 

sent to an unititiaiixed socket 

sender's header length did not Batch receiver's 

illegal socket nuaber 

tried to set up a receive on an active socket 

sent to an illegal hose nuaber 

could not strobe cad addr to Transporter 
tiaed out waiting for an Oaninet event 
tried a CRRe^d without a valid write butter 



SETUPRECV opcode 
SENDMSC opcode 
INIT opcode 
ENDRECV opcode 
PEEK/ POKE opcode 
ECHOCHD opcode 
VHOAKI opcode 



,dest. socket for REST packet 
socket for Cotisteliation protocol 
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lOCC 


IIFC 


OOOS 


0700 




iODZ 


4DFA 


OOSCt 






iOOi 


21CE 


0714 






lOOA 


4DFX 


O0B4+ 






lODE 


21CE 


0718 






10E2 


4000 


FE4C 






lOEi 


48E7 


8040 






IQEA 


227C 


0008 


DFDO 




lOFO 


4849 


0004 






10F4 


235F 


0018 






iOF8 


1340 


0018 






lOFC 


1341 


OOIC 






1100 


137C 


OOFF 


0004 




1104 


45E9 


9018 






U0& 


4100 


OOCE 






llOE 


441A 








1110 


303C 


FFFE 






1114 


0C29 


OOFF 


0004 




U\k 


440A 








lllC 


51C8 


FFF4 






1120 


137C 


0091 


0004 




1124 


1E29 


0004 






1121 


4 CDF 


9431 






112E 


4E75 









Fige 59 



Oboot -- QKNINET disk serrei boot piocessing 



Oboot loveb IS.CPbtsIot.w 

lea 0Dbikl0.a4 

aovel a4,CFbikio.w 

lea 0DdskI0,a4 

Bove.l i4,CFdskio.w 

bra LbootSO 



set boot slot nuBbec 

set boot disk bik i/o subr pointer 



set boot disk i^o sabc pointer 



ioad boot code 

(LbootSO is in CC.PROH.LD) 



OOcoand — send siapie conaand to Transporter 



Enter: DO. 6 -Transporter coaaand 

DIB - Destination host nuaber (it echo) 



Eiit: D7.B - IQRESULT (OHNIKET status) 



ODcoand aofea.l al-a2/d0,-(sp) 



aofe.l 


tCPoanibf.al 


pea 


RHdr(an 


BOfe.l 


(5p)«JCop(al) 


aove.b 


dO,TCop(al) 


aove.b 


dl,TCsock(al) 


Bore.b 


•Vaiting,RHpktRC(Al) 


lea 


TCad(Al),A2 


bsr 


Strobit 


bne.s 


0Dcad9 


aove.w 


ITOintfl.DO 



ODcadl capi b IVaitin9,RHpktRC(Al> 

bne.s 0Dcad2 

dbra DO, ODcadl 

aove.b ITiaeOut,RHpktRC(Al) 

ODcadl aoveb RKpktRC(Al),d7 

0Dcad9 Dovea.l <sp)^,al-a2/d9 

; Bo?e.b d7,CPoaniRC.w 

rts 



save registers 

get pointer to Data Area 

get pointer to tesuli record 

set result record pointer 

set Transporter coaaand 

set destination host naaber (echo; 

set Transporter waiting flag 

get coaaand address 

strobe coaaand address to Transporter 

Transporter not responding 

get tiaeout interval 

has Transporter responded' 

yes, ready to return 

tiaeout yet? 

yes, set tiaeout error and return 

get Transporter return code 

restore registers 

save current OMNINET return code 

return 



File CC FROM TEXT 



Piqe 60 



ii30 




EOiO 








0008 


DFDO 






002C 








0000 








OCOl 








0002 
















0003 








0200 


0004 






0033 
















0204 


0012 






0014 




l\6i 




0028 




ilik 


6100 


OlEA 





1170 


337C 


0004 


0012 


1176 


337C 


0200 


0014 


IITC 


6100 


024C 




il6S 


4CDF 


0607 




1184 


DOFC 


0200 




1188 


0640 


0001 




118C 


4887 






1181 


4E75 







OOblklO - Read or write an OHNINET disk server block subroutine 

Enter: AG L - Buffer address 

DO.V - Block naiber 

Dl V - Drive noBber 

OS.V - Read <$32) or Vnte ($33) couand 

D6.V - Destination host number * 2S6 

Eiit: AOL - Neit free location in buffer 
DO.V - Updated block nuiber 
D7.V - lORESO'LT (OMNINET/disk controller status) 

All other registers are preserved. 

ODblklO loveB.l dO-d2/al-aZ,-(sp),Save registers 

love.l tCFoanibf.al ,Ai points to the start of the Data Area 
.buffer valid = False... see ODdsklO 
;Stuff disk couand - read or write 
(Stuff drive nuiber 
,Io order byte of block nuaber 

,hi order byte of block nuiber 

,set length to 512 . . 

,Are we reading or writing? 

(Reading 

OOblki Bove.w IJli.SHtoLNlAl) , nuaber of bytes to send to drive 

clr.w SHfBLN(Al) , nuaber of bytes eipected back 

Bove.l AO,CDwrAD(Al) ;save address of REST of data 

bsr LongCads .Vriting 

bras ODblkS .return 

0Dblk2 Bove.w i4.SHtoLN(Al) .nuaber of bytes to send to drive 
Bove.w IS12,SHfaLN(Al> .nuaber of bytes eipected back 
bsr ShortCads . 

ODblkS aovea.l (sp)f,d0-d2/al-a2, Restore registers 



clr.w 


ODvalid(Ai) 


Bove.b 


D5,DCad(Ai) 


Bove.b 


Dl,DCDrv(Al) 


Bove.b 


DO,DCEIkLo(An 


Isr.w 


18,00 


■ove.b 


DO,DCBikHi(Al) 


■ove.w 


•512,DCLen(Al) 


capi w 


tDskVrit.OS 


bne.s 


0Dbik2 



adda.w 1512. aO 

addi.w fLdO 

aove.b d7,CPdiskRC.w 

eit.w d7 

rts 



.Update buffer pointer 
iUpdate disk block nuaber 
.Save current disk return code 
.Set return condition code 
.Return 



File; CC. PROM. TEXT 



PiQe 61 











238B« 










2369* 










2390* 










2391* 










2392* 










2393* 










2394* 










2395* 










2396* 










2397* 










2398* 










2399* 


1190 




EOEO 




2400* 


1194 




0008 


DFDO 


2401* 


119A 




0033 




2402* 


119E 








2403* 
2404* 


llAO 




0012 




2405* 


11A4 




0000 




2406* 


HAS 




0028 




2407* 


llAC 








2408* 


iUE 




FEFF 


002C 


2409* 


11B4 








2410* 
2411* 


UBi 




FFFF 


002C 


2412* 


UBC 








2413* 


ilBE 




0092 




2414* 


11C2 








2415* 
24U* 


11C4 




002C 




2417* 


UC8 




0014 




2418* 


IICC 




0001 


0014 


2419* 


11D2 




0000 


0001 


2420* 


1108 




0004 


0012 


2421* 


ilDE 








2422* 


UEO 




01E8 




2423* 


nE4 








2424* 


llEi 




OUE 




242S* 


llEA 


91FC 


0000 


0001 


2426* 
2427* 



ODdiklO - Read froi/wiite to Corvus disk 

Enter: AO .L - Batfei address 
D2.y - Count 

DS.V - Read <$32) or Vcite ($33) couand 
Di.V - Destination host nuaber * 2S& 

Eiit: D7.W - IQRESULT (OMNINET/disk controller status) 

All other registers are preserted. 

OOdsklO toveB.l dO-d2/aO-a2,-(sp),Safe registers 



■ove.l ICPoanibf.al 

capi.w IDskVrit.DS 

bne.s 0Ddsk2 

ODdskl BOfe.w D2,SHtoLN(Al) 

aofe.l (AO)«,DCid(Al) 

■ofe.l A0,ODwrAD(Al) 

clr.w D7 

■ove.w •-l,ODfalid(Al) 

bras 0Ddsk9 

0Ddsk2 capi.w l-l,ODTalid(Al ) 

beq.s ODdskS 

lofe.w IKoBufr.O? 

bra.s ODdski 

0Ddsk3 clr.w ODTalid(Al) 

■ove.w DZ.SHt'aLNUl) 

SQbi.w tl,SHfaLN<An 

adda.l tl,AO 

capi.w l4,SHtoLN(Al} 

bhi.s 0Ddsk4 

bsr ShortCads 

bra.s ODdskS 

0Ddsk4 bst LongCads 

ODdskS suba.l tl.AO 



Al points to the start ot the Data Area 

do we want to read or write 

read 



aove first four bytes of send data to DiskCid 

save address of REST of data 

force successful lOResult 

aark send buffer as valid.. 

return 

is send buffer valid?? 

yes, go on 

set lOresult to "no buffer" error 

return 

aark send buffer as invalid 

subtract one tor the return code 
inc buffer pointer past return code 
ate we doing a longcad? 
yes 



dec buffer pointer past return code 



File CC PROH.TEXT P«qe 62 



2430* , the return code most be loaded eiplicitly since it coses froi 

2431* , the header portion oi the results packet... 

2432* 
UFO 1087 2433* love.b D7,(A0) istoff return code in read buffer 

2434* ; 

11F2 4CDF 0707 243S* ODdsk? aoveB.I (sp)^,d0-d2/a0-a2, Restore registers 

2436* , — - love.b d7,CPdiskRC.i» iSa?e current disk return code 
lir6 4867 2437* eit.w d7 iSet return condition code 

liF8 4E75 2438* rts iReturo 

243?* 



File: CC. PROM. TEXT 



Pige 63 



UFA 48E7 COOO 

UFE 7E00 

1200 ZOOA 

1202 E19B 

1204 illA 

1206 670C 

1208 6116 

120A 6708 

120C 6112 

120E 6704 

1210 6116 

1212 6604 

1214 3E3C 00?0 

1218 4CDF 0003 

121C 4A4? 

121E 4E75 

1220 un 

nil 13C0 0003 OFAl 

1228 323C FFFE 

122C 0839 0000 0003 

1232 QF7F 

1234 6600 0006 

1238 51C9 FFF2 

123C 4E7S 



Strobit -- Strobe couand address to Transporter 

Enter: A2 : comiand address 

Eitt D7 s Transporter strobe status 

EQ : saccessfai 

NE s Transporter not responding 

All other registers are preserted 



Strobit aofei.! D0-Dl,-(sp) 

Boveq tO.d? 

■ove.I A2,D0 

roll to, DO 

bsr.s SBstrob 

beq.s SBerr 

bsr.s SBstrob 

beq.s SBerr 

bsr.s SBstrob 

beq.s SBerr 

bsr.s SBwait 

bne.s SBeiit 

SBerr aove.w tNoTrans.d? 

SBeiit AoreB.I (sp)i,O0-Dl 

tst.w d? 
rts 

SBstrob rol.l 18. DO 

■ote.b DO.StrAdr.L 

SBwait ■ove.w tTOintTl.Dl 

SBVl btst tO.RdfAdr.L 

bon SBVeiit 

dbra 01, SBVl 
SBVeiit rts 



save registers 

assuse no Transporter error 

get coBsand address 

Bove coBBand address to Bsb 

strobe address HI 

strobe address HED 

strobe address LO 

wait for Transporter ready 



no transporter . . . 

restore registers 

set retnrn condition code 

return 

shift address byte to Isb 
strobe address 
get tiBecut interval 
is transporter ready? 

ifes, return 

;repeat until transporter readf 

; return 



Fiie CC. FROM. TEXT 



Pige 6i 



123E 
1244 
1248 



12 4C 
1250 



337C 
4229 
4869 



235F 
6010 



1252 
1256 
125C 



i26C 
12 70 
1276 

127C 
1260 
1284 
1288 

t28C 
1292 
1294 
1298 

129C 
12A0 
12A4 
12A8 
12AA 



0002 0020 

0022 

0016 



2348 
3369 
137C 



00 1 C 

0014 0020 

0003 0022 



1262 137C flOFF 0006 



1268 ^869 0006 



235F 
137C 
i37C 



6 600 
303C 

0C29 
6608 
51C8 
6OG0 

1029 
OCOO 
6D00 
4240 
6000 



0018 

COFD 0018 

OCBO OOIC 

0018 
FF78 
00C4 
FFFE 



FFF6 
0OB4 

0006 
OOFE 
009E 



2482 
2483^ 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497' 
24981 
2499' 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509' 
2510 
2511 
2512 
2513' 
2514 
2515 
2516 
2517' 
2S18 
2519 
2520 
2521' 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529' 
2530 
2531 



SetGo — set up a receive for the 'GO' packet 



SetGo aore.w l2,TCdtaLN(Al) 

cit.b TChdrLN(An 

pea GData(Al) 

-- Bovel (SP) + ,ODdw(An 

-- aove.b ODdwhKAD.TCdAOhKAl) 

-- Bove.w ODdw{o(Al),TCdADlo(Al) 

■ove.l (SD + .TCdADhi-KAl) 

bras SetGol 



2 bytes of data 

no header 

get address of data area 

load data buffer address 

* 

saae as above -- TCsock destroyed 



, SetRecv 



set up a receive tor the disk results and read data 
returns result ia DO 



SetRecv 

, — - Bove.l A0,ODdw(Al) 

, — - love b ODdwhi(Al),TCdADhi(Al) 

, Bove.w OOdwio(Al},TCdADlc(Al) 

Bove.l AO,TCdADhi-l(Al) 

Bove.w SHfBLN(Al),TCdtaLN(Al) 

aove.b l3,TChdrLN(Al) 

SetGol Bove.b IVaiting,RHpktRC(Ai) 



pea RKdr(Al) 

, — Bove.I (SP)+,QDdw{Al) 

; —- Bove.b GDdwhi(Al) ,TCrAOhi(Al) 

, Bove.w ODdwio(Al),TCrADlo(Al) 

Bove.l (SF)4jCrADhi-l(Al) 

Bove.b IRecvOp,TCop(An 

Bove.b iCnstSkt,TCsock(Al) 

lea TCadUD.AZ 

bsr Stioblt 

bne SCerr2 

Bove.w ITOintvl,D0 

SCIO CBpi.b tVaiting,RHpktRC(Al> 

bne.s sen 

dbra DO.SCiO 

bra SCerr3 

SC12 Bove.b aHpktRC(Al},dO 

CBpi.b ICadAcptidO 

bit SCerrl 

clr.w DO 

bra SCeiit 



load data buffer address 
« 

saae as above -- TCsock destroyed 

disk results have a hdr iea of 3 

set result to FF to see it change 

prepare the coaaand vector 
load result vector address 



saae as above — TCop destroyed 
set up a receive 
on socket 60 

get coaaand address 

strobe coaaand address to Transporter 

Transporter not responding 

for tiae out 



wait till result changes 

tiaeont error 

get Transporter return code 
was coaaand accepted? 
no, fatal error 
indicate success 
return 



File: CC. PROM. TEXT 



Page 











2533« 










2534* 










2535« 










2536* 


Ukl 


1349 


0029 


OOID 


2537* 


12B4 


3369 


002A 


OOIE 


2538« 


IZBA 


137C 


GOAO 


OOIC 


2539« 


12C0 


0449 


0004 


0012 


2540* 


iZCi 


4C04 






2541* 


12C8 


4269 


0012 




2542* 


12CC 


336? 


Q012 


0020 


2543* 


1ZD2 


4229 


0022 




2544* 


12Di 


6032 






2545* 
2546* 
2547* 
2548* 
2549* 


i2D9 


4869 


008C 




255C* 
2551* 
2552* 
2553* 


12 DC 


235F 


OOIC 




2554* 


iiES 


137C 


OOBQ 


OOiC 


2555* 


ilU 


0C69 


0094 


0012 


2556* 


iZEC 


6CQ8 






2557* 


I2EE 


336? 


0012 


0020 


2558* 


12F4 


6006 






2559* 


i2F4 


337C 


0004 


0020 


2560* 


12FC 


137C 


8004 


0022 


2561* 


1302 


EOSE 






2562* 


1304 


1346 


0023 




2563* 


1308 


E15E 






2564* 
2565* 


130A 


137C 


OOFF 


OOOE 


2566* 


1318 


4869 


OOOE 




2567* 
2568* 
2569* 
2570* 


1314 


235F 


0018 




2571* 


1318 


137C 


0040 


0018 


2572* 


131E 


45E9 


0018 




2573* 


1322 


6100 


FED6 




2574* 


132< 


6622 






2575* 
2576* 



SndRest -- send the rest of the data (tram long ooiuand) to the disk seiver 
lesalt of call is in DO, = success 

SndRest nove.b ODwrAOtl(Al) ,TCdADhi(Al) , load data buffer address 

■ove.w 0Dw[ADv2(Al>,TCdA0io(Ai),* 

Bove.b IRestSictJCSockvAi; 

SQbi.w t4,SKtoLN(Ai) 

bge.s SC20 

cir.w SHtolN(Al) ,resuU was negative, take it lero 

SC20 lovew SHtoLNvAD.TCdtaLNai) ,send length - 4 bytes 

clr.b TChd[LK(Ai) ,no header for lesi packets 

bra.s SC40 .send it 

SndCads -- send a disk coaaand co the disk server 
result ot call is in DQ, :: success 



ndCnds pea DCBd(Al) 

tove.l ^SF)+,ODdw(Ai< 

aove.b GDdwhiUl) ,TCdADhiUi ; 

aove.w 0Ddwlo(Al),7CdADlo(Ai) 

novel (SF)t,7CdADhi-liAi> 

koveb tCnst5kt,TCsock(Al) 

capi.w •4,&KtoLN(Al) 

bge.s SC30 

Bore.w SHtoLN(Al),TCdtaLN(Al) 

bra.s SC32 

SC30 Bove.w t4,TCdtaLK(Al) 

SC32 Bove.b l4,TChdiLN(Al) 

[01. w 18, d6 

■ove.b d6,TCdest(Al) 

col.w 18, d6 

SC40 Bove.b tVait ing,SKpktRC(Al) 

pea SHdc(Al) 

level (SP)+,ODdw(Al) 

«o»e.b ODdv*hi(Al),TCrADhi(Al) 

Bove.w uDdwlo(An,TCrADlo(Al) 

Bove.l (SP)*,TCrADhi-HAl) 

Bove.b ISendOp,TCop(Al) 

SC50 lea TCBd(Al),A2 

bsr Stcobit 

bne s SCeir2 



data 13 the Disk coa&and 

load data buffer address 

same as above -- TCscck destroyed 

are v/e sending less than 4 bytes 

no 

less 

disk coBBand is 4 bytes long 

send header is 4 bytes 

set destination host nuaber 



set result to FF to see it change 
load result vector address 



saae as above -- TCop destroyed 

sendasg opcode 

get coaaand address 

strobe coaaand address to Transporter 

Transporter not responding 



File CC PROM TEIT 
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1328 


303C 


FFFE 


132C 


0C2? 


OOFF 


1332 


6606 




1334 


5ice 


FFF6 


i338 


6014 




133A 


4240 




133C 


4A29 


OOOE 


1340 


6D02 




1342 


4C0E 




1344 


1029 


OOOE 


1348 


6008 




i34A 


i007 




134C 


6C04 




134E 


103C 


con 


1352 


4880 




1354 


4E7i 





2578* 




io»e.w 


•TOistTl.DO 


2579* 


SC60 


opi .b 


•Waiting, SHpktRC<Al) 


2SB0* 




bne s 


SC70 


258t» 




dbri 


DO,SC60 


2582« 




bti.s 


SCerr3 ; 


2S83* 








2S84* 


SC70 


cir.w 


DO 


2585* 




tst.b 


SHpktRC<Al) 


2586* 




bit s 


SCerrl ; 


2587* 




bras 


SCeiit 


2588« 








2589« 


SCerrl 


•ore.b 


SHpktRC(Al),DO 


2590» 




bras 


SCeiit ; 


2591* 


SCe[r2 


lore.b 


D7,D0 


2592» 




bras 


SCeiit 


2593« 


SCetrS 


aoT8. b 


ITiaeOot.OO 


2594* 








2595* 


aCeiit 


eit w 


DO 


2596* 




rts 




2597* 









for tiae out 

wait till result changes 

tiaeoot eiior 

indicate success 
did it work? 
no, fatal error 
return 

get transporter error code 

return 

no transporter . . 

return 

tile out . 

■ake return code a word 
return 



file. CC. PROM. TEXT 
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1356 








LongCads 














i 
















, 1. 


set op I receive for the CO 


aessage 


















iSSi 


6100 


FEE6 






bsi 


SetCo 




13311 


6D62 






. 2. 


bit.s 
send disk 


LcidEtr 
couand 


if DO < then fatal DRV error 


135C 


6100 


FF7A 






bsr 


SndCads 


doit 


13611 


60SC 








blt.s 


LcBdErr 


if DO { then fatal DRV error 










. 3. 


wait to receive CO 




















1362 


1029 


0006 




LcBdl 


aove.b 


RHpktRC(Al),dO 


get Transporter return code 


1366 


OCOO 


OOFE 






cmpi .b 


•CBdAcpt.dO 


has ret«rn code changed? 


136A 


67F6 








beq.s 


LcBdl 


no, wait sone sore 


136C 


4A00 








tsl.b 


DO 


successful receive? 


136E 


604E 








bit s 


LcBdErt 


no, set error return 










, 4. 


validate CO packet 




















1370 


0829 


0007 


0016 2621« 


Lead 3 


btst 


l7,Gdata(Al) 




1376 


66DE 








bon.s 


LongCads 


disk server restart 


1378 


0C69 


474F 


0016 2623* 




cspi V 


rCQ-,Cdata(Al) 




137E 


660A 








bne.s 


Lc>d4 




1380 


1029 


0023 






■ove.b 


TCdest(Al),DO 




1384 


B029 


0007 






cip.b 


RHsor(At),DO 


did response coae froa the rig 


1388 


6708 








beq.s 


LcBdS 




138A 


6180 


FEB2 




LcBd4 


bsr 


SetCo 


set up tor GO receive again 


138E 


6D2E 








bits 


LcidErr 




1390 


60D0 








bras 


Lcsdl 





File CC.PROM TEXT 



Page ii 



1392 
1396 



t39S 6100 
i39C 6D20 



;39E 


iOi? 0006 


i3A2 


OCOG OOFE 


13Ai 


i:u 


iSAS 


4A00 


;3AA 


6Di2 



13 AC 


iC29 


0023 


138C 


EC29 


0007 


i3B4 


670C 




1336 


6iD0 


fE?A 


13BA 


sDCi 




i3BC 


60D4 




13BE 


iEOO 




1 3 CO 


6004 





;3C2 1E2? OGOC 



13C6 
.3C8 



4887 
4E75 



1634* 


, 




263S* 


, 5 set ap teceife ior result 


2636* 


, 




2637t 


Lcid5 bst 


SetRecv 


2638« 


bit s 


Lc&dErr 


263?* 


; 




2640* 


, 6. send REST 




264l« 


, 




2642* 


bsr 


SndRest 


2643* 


blt.s 


LctdErr: 


2644* 






:6 45« 


, 7. wait for results 


2646* 






2647* 


Lcad6 aofe.b 


RHpktRC(Al),dO 


2648* 


cipi b 


•CadAcpl.dO 


2649* 


beq.s 


LcBd6 


2650* 


tst.b 


DO 


2651* 
2652* 


bit s 


LcBdErr 


2653* 


, 8. TalJdite results 


2654* 






2655* 


Lcid7 aore.b 


TCdest(Al),00 


2656* 


ctp.b 


RKsor(Al),O0 


2657* 


beq.s 


LcBdOK 


2638* 


bsr 


SetRecv 


2659* 


bit s 


LcBdErr 


2660* 


bra s 


Lc«d5 


2661* 






2662* 


Lcidtrr Bore.b 


D0,D7 


2663* 


bra s 


LcBdEi 


2664* 






2665* 


Lc»dOK »Ofe b 


RHdskRC(Al/,D7 


2666* 






2667* 


LcidEi eit w 


D7 


2668* 


rts 





,if DO < then fatal DRV error 



.get Transporter return code 
,has return code changed' 
,no, waic soBe bo re 
.successful receive? 
,no, set error return 



did response cose froB the right place? 

yes 

No, set up receive again. . . . 

If DO < then fatal DRV error 

go back and wai t again. . . 



get etror return code 
return 



get disk server return code 



Bake return code a word 

return for ShortCads or LongCads 



File: 
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13CA 






2671* 
2472* 
2673* 
2674* 


I3a 


UOO 


FE8i 


2675* 


13CE 


&DEE 




2676* 
2677* 
2678* 
2679* 


13D0 


6100 


FFOi 


2680* 


13D4 


6DE8 




2681* 
2682* 
2683* 
2684* 


13DA 


2E3C 


0004 0000 


2685* 


i3DC 


102? 


0006 


2686* 


13E0 


iCOC 




2687* 


13E2 


OCOO 


OOFE 


2688* 


13Ei 


iidi 




2689* 


i3E8 


5387 




2690* 


13EA 


&6F0 




2691* 


13EC 


iODO 




2692* 
2693* 
2694* 
2695* 


iSEE 


1E29 


0C07 


2696* 


13ri 


0C2? 


OOFF 0023 


2697* 


13F8 


UU 




2698* 


13PK 


1347 


OOOC 


2699* 


13FE 


i0C2 




2700* 
2701* 


1400 


BE2? 


0023 


2702* 


1404 


67BC 




2703* 


140i 


ilOO 


FE4A 


2704* 


140k 


iDB2 




2705* 


HOC 


iOCE 




2706* 
2707* 
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ShoitCads 

, 1. set up a receive ior the results 



bst SetRecv 
blt.s LcBdErt 



,if DO ( C then uttl DRV erioi 
, 2. send disk coBBand to disk secret 



bsr SndCsds 
blt.s LcBdEct 



3. wait to receive results 



,doit 

,it DO ( then faiai DRV error 



■ove.i •$40000, d7 ,for tiie out 
ScBd2 Bove.b RKpktRC(Al),dO .get Transporter return code 



bge.s ScBd3 

cBpi.b ICBdAcptidO 

bne.s LcBdErr 

sobq.l II, d? 

bne.s ScBd2 

bra.s LcBdErt 

i 4. validate results 



.successful receive, go on 
,has return code changed? 
,yes, set error return 
.tiae out? 
ino, wait soBe bo re 
,set error return 



ScBd3 Bove.b RHsor(Al),07 ,get source of response 

CBpi.b t$FF.TCdest(al) ,is this a broadcast? 

bne.s ScBd4 mo, go on 

Bove.b d7,RHdskRC(Ai) ,save disk server noBber 

bra.s LcBdOk ;return 

ScBd4 cBp.b TCdest(Al),D7 ^did response coBe iroB the right place? 

beq.s LcBdOK ;yes 

bsr SetRecv ,set up receive again. . 

blt.s LcBdErr ,if DO ( then fatal DRV error 

bras ScBd2 ^go back and wait again... 
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HOE 
1412 



ilCO 
IICO 



0700 
3706 



1414 487A 0034* 

141A ZIDF 0714 

141E 467A 0044i 

1422 2IDF 0718 



142i 6100 OO&A 

i42A 6100 OOAE 

142E 6D1A 

1430 207C 0008 EOOO 

1436 7000 

1438 3200 

143A 7A32 

143C ilOE 

143E 6D0A 

1440 610A 

1442 6D06 

1444 207C 0008 EOOO 



2709' 
2710 
2711 
2712 
2713' 
2714' 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723' 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734' 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742' 
2743 
2744 
2745 
2746 
2747! 



(CocvQS floppy driver 



File: 
04te. 
By: 



include 'CC.PROM.FD' 

CC. PROM. FD. TEXT 
l9-Jun-82 
Ravi Luthra 
Keith Bail 



Fboot -- Floppy disk boot processing 



■ove.b 


dO.CFbtslot.w 


■ove.b 


dO.CFossIot.w 


cir.b 


CPbtsrvr.w 


pea 


FDblklO 


■o»e, 1 


(sp)+,CFblkio.w 


pea 


FDsecIO 


Aove. i 


(5p)^,CFdsklo.w 


■o*eq 


lO.dO 


■oveb 


dO.CFossrvr.w 


ftove.w 


dO.CFosblkii.N 


»o»e.b 


dO.CPosdrv.w 


bsr 


FDISsssd 


bsr 


FOinit 


bll.s 


Fboot90 



love.I lUSRbase.aO 

■oveq 10, do 

■ove.w dO.dl 

Boveq lOskRead.dS 



bsr. I 
bit. 
bsr. I 
bit. 



FDblklO 
Fboot 90 
FDblklO 
Fboot 90 



move. I lUSRbase.aO 



set boot slot number 

set OS slot number 

set boot server number (already 0) 

set boot disk bik i/o subr pointer 

* 

set boot disk sector i/o subr pointer 

(already D> 
set OS server number (already 0) 
set OS volume block number (already 0) 
set OS volume drive number (already 0) 
set up floppy constants 
initialiie floppy drive 
just return if error 

get block buffer pointer 



get read block function code 

read block 1 of boot code 
just return if error 
read block 2 of boot code 
just return if error 
get block buffer pointer 

return 
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44C 4SE7 FETE 

4SQ 343C 0200 

454 3600 

4S& 6100 OODO 

45A 4CDF 7E7F 

4SE S240 

460 4AQ7 

461 4E7S 



1749* 
1750* 
1751* 
2751* 
1753* 
1754* 
2755* 
1756* 
2757* 
2758* 
2759* 
2760* 
2761* 
2762* 
2763* 
2764* 
2765* 
2766* 
2767* 
2768* 
2769* 
2770* 
2771* 
2772* 
2773* 
2774* 
2775* 
2776* 
2777* 
2778* 
2779* 
2780* 
2781* 
2782* 
2783* 
2784* 
2785* 
2786* 
2787* 
2788* 
2789* 
2790* 
1791* 
2792* 
1793* 



PHILOSOPHY: The user views floppy is i set of 512 byte blocks 

The driver then transUtes this block to track address, sector 
address, side 

It then sakes the necessary number of request to read sectors 
Partial sectors are not read or written, the eicess is ignored 
Sector length of an Apple floppy is 256 bytes 

RESTRICTIOH. Bytes per sector must be eiact divisor of 512 (block sixe) 

The block address >ust be less than (2**lS)/bytes per sector, 
so that when sector is formed, it fits in the D3.V 

RESULTS OF SOME COHHANDS: 

1) TRACK REG is incremented by 1 during STEPIN even 
though there is a seek error because the TRACK adrs 
requested eiceeds the maiimum track addres allowed 

2) STEPOUT. the track register is not decremented below G 
after TRKOO. The seek error bit is set. 



FDbiklO - Read/Vrite a Corvus floppy disk block subroutine 

Enter: AO.L > Buffer address 
DO.V - Block number 
Dl V - Drive number 
D5.U - Read (U2) or Vrile ($33) command 

Eiit: AO.L - Neit free location in buffer 
DO.V - Updated block number 
D7.W - lORESULT 

All other registers are preserved. 



FDblklO HGVEM.L D0-D6/A1-A6,-(SP) 

HOVE.V tBLKSZ,D2 

HOVE.V DO, 03 

BSR FDrdwr 

KOVEM.L (SP)f,D0-D6/Al-A6 

ADDQ.V tl,DO 

TST.B D7 
RTS 



iBLOCK SIZE IK BYTES 



^restore registers 

,INC BASE BLOCK 

,set return condition code 

;retuin 
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1464 


0C45 


0033 


1468 


6604 




146A 


6000 


0378 


146E 


48E7 


FEFE 


1472 


6100 


mz 



1476 4260 

1478 6100 008A 

147C 6100 025C 

1480 6604 

1482 6100 O0O6 

1486 6100 0066 

148A 4CDF 7F7F 

148E 4Afl7 

1490 4E75 



2795 
2796 
2797 
2798' 
2799 
2800 
2801 
. 2802 
2803 
2804 
280S 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814' 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822' 
2823 
2824 
2625 
2826 
2827 
2828 
2829 
2830' 
2831 
2832 
2633 
2634 
2835 
2636 
2837 
2638 
2639 
2640 
2841 
2642 
2843' 



FOsctIO - Read/Write a Corius floppy disk sector 

Enter AO.l - Buffer address 

01 .V - Bytes per sector (128 for single density) 

03. V - Track nasber 

04. V - Sector nuiber 

DS.V - Read <$32> or Vrite ($33) couand 

Eiit D7.V - lORESULT 



All other registers are preserved. 



DsecIO HOVEH.I. D0-D6/A0-A6.-(Sr} 
BSR FDgetadi 



CLR.L DO 

BSR FDIcadl 

aSR FDseek 

BNE.S FOsio9 

CHPI.V tOskVrit.OS 

BNE.3 FOsio2 

BSR FOsecV 

BRA.S FDsio9 



FDsecIO CKPI.V ICskVrit,05 

BNE.S FDsiol 

BRA FDEopcd 

FOsiol HOVEK.L D0-D6/A0-A6.-(SF) 

BSR FOgetadr 



CLR.l 
BSR 
BSR 
BNE.S 



FOIcadl 
FDseek 
FDsio9 



F0sio9 BSR FDitrof 

HOVEH.L (SP)f.D0-Oi/A0-A6 

TST.B 07 

RTS 



save registers 

set address registers 

Al = ptr to device description info 

A2 = ptr to slot controller registers 

A3 = ptr to slot static RAM 

turn on aotor and setup controller 

get to track 

if error, return 

only do write if cad is a write 

else do a read 



Bake sure csd is a read cid 

it is 

it isn't, return error 

save registers 

set address registers 

Al s ptr to device description info 

A2 s ptr to slot controller registers 

A3 s ptr to slot static RAM 

turn on motor and setup controller 
get to track 
if error, return 

read sector specified by 04. V 

turn off Botor 

restore registers 

set return condition code 

return 
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00000900 
00000000 



00030001 
00000020 



00030001 
00000200 



00000000 
00000001 
00000002 
00000003 

00000004 

ooooooos 

OOOOOOOi 
00000007 



2845 
2846 
2847 
2848 
2849 
28S0 
28S1 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2667 
2866 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2876 



FLOPPY MAIN EQUATES USED BY THE DRIVERS AND FORMAT CODE CROUPS, 
indices to code in static rai - ran is slot dependent $900 tot 
iAQO for slot 2, iBOO for slot 3, and $C00 for slot 4 



BASERAH eqo CPsIlrai 
SVLCMD eqa 



BLKSZ eqa 512 
SLOT BASE ADDRESSES 



.ADDRESS OF FIRST RAM FOR SLOTS 
,SAVE OF LOCAL COMMAND 



,0S BLOCK SIZE 



The fioppf contcoliec IS insetted into one of the slots. 
Each slot has two address select decodes coaing to it 
One is called NDEVSEL and the other is called SLQTSEL 



NDEVIAO equ 
DEVADOFST equ 



SLOTIAD 
SLTAD0F5T 



NNMIl 
NNHI2 
NKHI3 
NNMI4 

NIRGl 
NIRQ2 
NIRQ3 
NIRQ4 



equ 
equ 



equ 
equ 
equ 
equ 



$30001 
$20 



$30001 
$200 



equ 4 

equ 5 

equ i 

equ 1 



AORS OF KDEVG (does not eiist) 
OFFSET OF OTHER NDEVS ADRS 



ADRS OF slot idoes not eiist) 
ADRS OFST FOR OTHER SLOTS 



SLOT STATUS ADRS 

BIT POSITION FOR EACH STATUS BIT 
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90000080 
00000100 
00000190 



COOOOOIA 
OOOOOOiA 
00000010 



0000004D 
00OO004D 
OOO0G023 



oooooir4 

000003E9 
00000118 



90000000 
FFFfFFF 
FFFFFFE 
FFFFFFD 
FFFFFFC 
FFFFFFB 

FFFFFFO 
FFFFFEF 
FFFFFEE 
FFFFFED 
FFFFFEC 
FFFFFCfl 





' , Bytes per sector 










BPS8IS0 «qa 


128 




BPS8IDD eqa 


254 




BPSSISO equ 


2S& 




> ; 






> ; Sectors per 


rack 










» SCPT8SD equ 


li 




SCPT8DD eqa 


2i 




SCPT5SD equ 


16 




» , 






* , Tricks per s 


de 










» TKPS8SD eqa 


77 




» TKPS8DD eqa 


77 




TKPS5S0 equ 


35 




» , 






, Naiber of blocks p 










NBLK8SD equ 


SOO 




NBIKIDD equ 


1001 




NBLKSSO equ 


260 




• , 






» , Error return 


codes 




» , 






► RCOOD equ 







» RBD6LX eqa 


-1 




» RBDUNT equ 


-2 




RBDOPCO equ 


-3 




t RHVRERR equ 


-4 




RLOSTDEV equ 


-5 










RVRPROT eqa 


-16 




RSEEXERR equ 


-17 




RBUSy eqa 


-18 




RRNF eqo 


-19 




RNOTRDY equ 


-20 




RERRUNOWN equ 


-64 









;Single density 8" 
, Doable density 8" 
iApple S 1/4" floppy 



Single density 6" 
Oooble density 8* 
Apple 5 1/4" floppy 



(Single density 8" 
, Doable density 8" 
iApple 5 1/4" floppy 



.Single density 8" single sided 
;Doable density 8" single sided 
.Apple 3 1/4" floppy 



disk accss successful 

Block requested is out of range 

bad unit nasber or driver not iaplemented 

Reqaested unit I/O function is not valid 

Hardware error 

Lost device, i.e. device went offline 

the unit is write protected 

SEEK Error 

device busy 

record not found - aiaybe disk is bad 

device not ready 

error origin unknown 
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OOQOOOOO 
00000000 

OOQOOOOO 
00000001 
00000004 
OOOflOOOS 
O00O0Q&6 
00000007 



OOQOOOOO 
OOOOflOOi 
00000004 

ooooooos 

QOOflOQOi 
00000006 
00000007 



2922' 
2923' 
2924 
292S' 
2926' 
2927 
2928' 
2929 
2930 
2931 
2932' 
2933 
2934' 
293S 
2936 
2937 
293S 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946' 
2947 
2948 
2949' 
2950 



, This section conatins the equates for Floppy Disk cont FD1793 

, Ml lefetences ate w.t.t MDEVIAD in X2 

; Prefii of L' leans that this reference is to the 'LOCAL' 

i logic on the disk controller board 

; Prefii of FDC means that this referenc is to the Floppy disk controller 

, Local disk controller board equates 



LSTRH 
LCHDR 



equ 
equ 



LSDRQ equ 

LSINT equ 

LS1SD2SD equ 

LSBINKIN equ 

LSDSKCHC equ 

LSFKMFH equ 



indei to the local Status reg 

mdei to the local coaiand reg 

BIT =1 DRQ 

INTERRUPT REQUEST 

=0 if 2 sided , =1 it one sided 

=1 if 8 inch , =0 if Bin 

=0 if disk changd, 1 if not 

=1 if sigl density =0 if double 



Coiaand register equates 



LCFLPSDl equ 

LCDEO equ 

LCOEl equ 

LCHOTOROF equ 

LC8INHIN equ 

LCFLF8IN equ 

LCFHKFK equ 



::0 if Side , =1 it side 1 

drive selct bit 

drive select bit 1 

=1 if ttotor to be turned off 

=1 to select 8 in, =0 for 5 i/4 

=1 to select singi density / for dbl 
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00000010 
00000010 
00000012 
00000014 

oooooou 



GODOOOOO 
00000010 
00000020 
00000040 
OOOOOOiO 



00000080 
OOOOOOAO 



ooooooco 

OOOOOOEO 
OOOOOOFO 
OQOOOODO 



00000004 
00000010 
00000000 
ODOCOOOl 
00000002 
00000003 

OOOOOOIO 
00000004 
00000008 
00000002 

00000001 
00000002 
00000004 
00000008 



, Floppf disk controllers eqoites 

FDCAD eqa $10 .Floppf disk controller base indei 

, iHdress of the internal registers of FOC 

FDCCHOR eqo FDCADfO ,AORS OF FOC COHKAHO REG 

FOCSTRR equ FDCAOfO ,ADRS OF FOC STATUS REG 

FDCTRKR eqo FDCADf2 ,ADRS OF FDC TRACK REG 

FDCSECR equ FDCAD^4 ,ADRS OF FOC SECTOR REG 

FOCDATR eqa FDCAOti ,AORS OF FDC DATA REG 

, Couand code equates 



CRESTOHE 







,0 H V Rl RO 


CSEEK 




$10 


,0 1 h f rl tO 


CSTEP 




$20 


,0 1 U h ? rl rO 


CSTEPIN 




$40 


;0 1 U h V rl rO 


CSTEPOUT 




$<0 


,0 1 1 U h V rl rO 



Tfpe II coaaands 



CRDSEC 
CVRSEC 



equ 
eqo 



$80 
$A0 



,1 ■ F2 E Fl 
,1 1 ■ F2 E Fl 



;TTpe HI couands 



CROAM 
CRDTRK 
CVRTRK 
CFRCINT 



eqo 
equ 
equ 
equ 



$C0 
$E0 
$F0 
$D0 



,110 E 
,1 1 1 E 
,11110 E 



,1 1 3 1 11 12 13 14 



FLAGS equates — all flags have prefii of F 



FHld 



equ $8 



FVerify equ 

FUpdttrk equ 

FSTPRT3as equ 

FSTPRT6BS eqo 
FSTPRTlOas eqo 
FSTPRTlSas equ 

FHPS equ 

FDL7 equ 

FSPCPN equ 

FSOCHPEN equ 

FINTROY eqo 

FIKTNRDT equ 

FINTIDZP eqo 

FlNTim equ 



if =1 load head in the beginning 
if =0 onload head in beginning 
if -1 feriff destination trk else not 
if =1 update TRK reg after each STEP 
step rate = 3 Killiseconds 
step rate = i Billiseconds 
step rate = 10 Billiseconds 
step rate = IS Billiseconds 

H=l if Bultiple sectors else =0 
E=l if internal dly of IS as =0 no dly 
F2=0 coapare with side 0,=1 with side 1 
Fl=l enable side coapare, =0 disable cap 

not ready to ready 

ready to not ready 

interropt on indei poise 

terainate coaaand iaaediately and intrpt 
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00000001 
00000001 

00000002 
00000002 
00000002 



00000004 
00000004 

ooooooos 
ooooooos 
ooooooos 

OOOOOOOi 
00000007 











; Status 


register 










* inaae 


bit p 










SBUSY 


eqo 










> SINDEX 






SDRQ 












STRXO 






» SDTOVER 






> SDTUNDR 












SCRCERR 












5SEEKERR 






SRNF 












SHDLDO 






SRECTYP 






SWRFAUIT 












» SVRPROT 












» SNOTRDY 











eqoates -- all status leg bits have prefii ot S 
osition 

SO busy 



SI indei pulse encountered 

51 data request 

52 track 00 

S2 data over run 

52 data under run 

53 crc error 

54 seek error 

54 record not found 

55 head loaded 
SS record type 

55 write fault 

56 floppy write protected 

57 floppy not ready 



Page 78 



1492 
H92 



1494 
i49C 
i4A2 
i4AB 
MAE 



HBO 
14B0 



1464 
14BA 
14C0 
MCi 
14CC 
14D2 
14D8 



337C 0ir4 

337C ooeo 

137C OOU 

i37C DQ4D 
iOlC 



i4DE 




14E0 




HE2 




i4E< 




14E6 




14EA 




14EC 





0734 
0736 
0738 
0739 



337C 03E9 

337C 0100 

137C OOIA 

137C 004D 

137C 0001 

137C 0001 
4E75 



0734 
0736 
0738 
0739 
073A 
073B 



14DA 6100 0104 



303S 
3036 
3037 
3038 
3039' 
3040' 
3041 
3042: 
3043 
3044' 
3045 
3046 
3047 
3048 
3049' 
3050' 
3051 
3052 
3053' 
3054' 
3055 
3056' 
3057' 
3058' 
3059 
3060 
3061' 
3062 
3063' 
3064 
3065 
3066 
3067 
3068' 
3069' 
3070 
3071 
3072 
3073' 
3074 
3075' 
3076 
3077 
3078 
3079 



FDI8sssd -- Set up constants for Corvas 8" single side single density 



Bove.w 
■o?e.vf 
Bove.b 
Kove.b 
bra s 



FOgetadi 



INBLK8SD,CPfdvsi(Al) 
tBP58ISD,CPfbps(Al) 
tSCPT8S0,CPIspt(Al) 
tTKPS8SD,CPftps(Al) 
FDI8SS 



,set addcess registers 

;A1 s ptr to defice description info 

,A2 = ptr to slot controller registers 

iA3 = ptr to slot static RAH 

iset device site in blocks 

;set bytes per sector 

,set sectors per track 

iset tracks per side 

,set other values and return 



Set up constants lor Corvus 8" single side double density 



Bove.w 
love.w 
Bove.b 
■ove.b 
•ove.b 
■ove.b 
rts 



FOgetadr 



tNBlK8DD,CPfdvsi(Al) 

tBPS8ID0,CPfbps(Al) 

tSCFT8DD,CPfspt(Al) 

tTKPS8D0,CPftps(Al) 

fl,CFfspd(At) 

ll,CPfofst(An 



set address registers 

Al s ptr to device description info 

A2 = ptr to slot controller registers 

A3 = ptr to slot static RAN 

set device sue in blocks 

set bytes per sector 

set sectors per track 

set tracks per side 

set sides per disk 

set first track offset 

return 



FOinit — Initialiie Corvus floppy disk drive 



fDinit BSR FOgetadr 



CLR.L 


DO 


HOVEQ 


11. Dl 


BSR.S 


FDlcBdl 


BSR 


FDrst 


BSR.S 


FDatrof 


TST.B 


D7 


RTS 





set address registers 
Al s ptr to device description info 
A2 = ptr to slot controller registers 
A3 s ptr to slot static RAH 

A FAKE SECTOR LENCTK 

turn on motor and setup controller 

restore to track 8 

turn Botor off 

set return condition code 

return 
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14EE 182B OOQO 

14F2 08C4 OOOS 

MFi 1544 OOQQ 

14FA 1744 OOSO 

14FE 4E75 



ISQO aOO OlOA 



1504 


0880 


0085 


1508 


OBCO 


0006 


ISOC 


08C0 


0007 


1510 


1E29 


0708 


1514 


E25F 




ISH 


E50F 




1518 


E5SF 




ISU 


8007 




151C 


1740 


0000 


1520 


1540 


0000 


1524 


4287 




lS2i 


4E75 





3081 
3082 
3083 
3084 
3085 
3086 
3087' 
3088 
3089 
3090 
3091 
3092 
3093: 
3094 
3095' 
3096 
3097! 
3098 
3099 
3100' 
3101 
3102 
3103' 
3104 
3105 
3106 
3107 
3108 
3109 
3110< 
3111 
3112 
3113< 
3114' 
3115 
3116 
3117' 
3118 
3119 
3120 
3121 
3122 
31231 
3124 
3125' 



OQ.V 
01 .V 
D2.V 
D3.W 
D4.V 
D5.W 
D6.V 



-- FREE 

- FREE 

-- BYTE CNT 

-- BASE BLK ADRS 

-- FREE 

-- USER CMD 

-- FREE 



AO.L - USER BUFFER ADDRESS 

Al.l - DEVICE DESCRIPTION AREA BASE ADDRESS 

A2.L -- FLOPPY CONTROLLER BASE ADDRESS 

A3.L - STATIC RAN BASE ADDRESS 



FDBtrof — Turn aotoi off 



FDitrof love.b 
bset 
Bove.b 
■ofe.b 
rts 



SVLCHD(A3),D4 
tLCM0T0ROF,D4 
D4,LCNDR(A2) 
D4,SVLCHD(A3) 



iget current locil comiand 

,5et Botor off flag 

iiove couand to coiaand register 

,save current local coBsand 

.return 



GET THE LOCAL CQHKANO FOR THIS DRIVE INTO REGISTER DOB 
RETURNS VITH D7 CLEAR LONG 



;Caic first side trie sec 



; forB a local coBBand in DO 

; Enliy used for Read/Vrite a sector 



FDlCBdl bclr 
bset 
bset 
Bove.b 
ror w 
Isl.b 
rol .w 
orb 
Bore.b 
Bove.b 
dr. I 
rts 



ILCMOTOROF,D0 

ILCFLPOIN.dO 

ILCFHHFN.dO 

CPosdrf(al),d7 

• l,d7 

•2,d7 

12, d7 

d7.d0 

dO,SVLCHD(a3} 

dO,LCHDR(a2) 

d7 



, clear Botor off bit 
iindicate 8 inch flp 
lindicate 8 inch tip 
isel drive 
;note DEO is BO 
,0E1 is B4 

,set into dO 

;save then coaBand 

iset local coBBand register 

.clear error register 

^return 



File CC FROM. TEXT 
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1528 UOO 00B6 



152C 4A43 

1S2E &B00 02A8 

1532 B669 0734 

lS3i ^COC 02AC 

153A 6lC4 



153C 


uoo 


1540 


an 


1542 


9441 


1544 


6B0E 


I54i 


&112 


1548 


4A07 


154A 


6608 


154C 


UOO 


1550 


6602 


1552 


60EE 


1554 


6100 


1558 


4E75 



3127« 
3128* 
3129* 
3130« 
3131* 
3132* 
3133* 
3134* 
3135* 
3136* 
3137* 
3138* 
3139* 
3140* 
3141* 
3142* 
3143* 
3144* 
3145* 
3H6* 
3147* 
3148* 
3149* 
3150* 
3151* 
3152* 
3153* 
3154* 
3155* 
3156* 
3157* 
3158* 
3159* 
3U0* 
3161* 
3162* 
3163* 
3164* 
316S* 
3166* 
3167* 
3168* 
3169* 
3170* 



TST.V 

BHI 

cap.w 

bge 

BSR.S 



FDgetidr 



D3 

FOEbIck 

CPfdisx(Al>,d3 

FOEbick 

FDlcBd 



set address registers 

Al = pointer to device description info 

A2 = pointer to slot controller registers 

A3 - pointer to slot static RAH 

test base block 

juBp It first blk rqstd is invalid 

is it in liBit 

iuBp final block exceeds lai 

set local couand register 



DO 


V 


-- LOCAL 


COKhAND 














01 


V 


- BYTES 


PER SEC 














D2 


V 


-- WORD CNT 














D3 


V 


-- TRACK 


ADDRESS 














D4 


V 


.- SECTOR ADDRESS 














D5 


V 


-- USER 


:OHMAND 














D6 


V 


-- FREE 
















READS/WRITES ONLY COMPLETE 


SECTORS 










for 


th( 


rest of 


the code: 


















AO 


points to 


the user buffer address 










Al 


points to 


th 


> beginni 


ng of the 


device 












table ent 


y 


or this 


Toluae in 


DO at 


the 


entry 






AZ 


Contains 


the 


NDEVICE 


address o 


I the s 


lot 










specified 


in 


the devi 


ce table 


for thi 


s Voluae 






A3 


BASE ADDRESS 


OF LOCAL 


STATIC RAM 







bsr 
bne.s 

FDrdwrl sob.w 
bai s 
bsr s 
tst.b 
bne.s 
bsr 
BNE.S 
bra. 5 

FDrdwr9 bsr 
rts 



FOseek 
FDrdwr9 

di,d2 

FDrdwr9 

FDsecRV 

d7 

FDrdwr9 

fDincTS 

FDrdwr9 

FDrdwrl 

FOBtrof 



seek the desired track 
if error, return 



return if no acre sectors to process 

process sector 

d7 contains result code 

if error, return 

TIMED OUT ERROR 
process neit sector 

turn off Botor 
return 
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00000004 
00000004 

1S5A 4BE? 0600 

1S5E 3A3C 0004 

n62 2848 

1S64 3C3C 0004 

1S68 204C 

tS6A 6100 0144 

156E 661C 

1570 6100 0022 

1574 0807 0002 

1578 57CE FFEE 

1S7C 0807 0003 

1580 57CD FFE2 



1584 6100 0206 

1581 6702 

1S8A 204C 

158C 4CDF 0060 

1590 4A07 

1592 4E75 



3172« 
3173* 
3174* 
3175* 
3176* 
3177* 
3178* 
317?* 
3180* 
3181* 
3182* 
3183* 
3184* 
3165* 
3186* 
3187* 
3188* 
3189* 
3190* 
3191* 
3192* 
3193* 
3194* 
3195* 
3196* 
3197* 
3198* 
3199* 
3200* 
3201* 
3202* 
3203* 
3204* 
3205* 
3206* 
3207* 
3208* 
3209* 
3210* 
3211* 
3212* 
3213* 
3214* 
3215* 
3216* 
3217* 
3218* 
3219* 
3220* 
3221* 
3222* 
3223* 
3224* 



FDsecRV -- Read oi write a sector of data to the floppy 
It tiansfer the data to/tios the adts in AO 
fioi / to the tioppT 

Enter: DS - DskRead or DskVrit 



bsr s 
bra.s 
FDscRVl bsr.s 
FDscHW? rts 



cap.w tDskVrit,D5 
beq.s FDscRVl 
FDsecR 
FDscRV9 
FDsecV 



,fali thru to FDsecR 

,see it it is a Uni t wr i le 



FDsecR -- Read one sector of data 
Enter 



bytes per sec ---> 01 w 

sector adrs > D4.w 

buffer adrs ) AO 

floppy Bust be poitioned on desired track 

OS result code ---; D7 

data to the adrs pointed by AO 



FOrcRd equ 
FDrcDOr equ 

FDsecR novel. 1 
love.w 
Bove. 1 



4 
4 

d5-d4,-(5P) 
IFDccRd,d5 
a0,a4 



FDsecRl Bove.M »FDrcD0r,d6 



FDsecR2 aovel 
BSR 
BKE.S 
BSR 
btst 
dbeq 
btst 
DBEQ 



a4,aO 

FDwRdy 

FDsecR? 

FDccRd 

•SDTOVER.d? 

d6,FDsecR2 

tSCRCERR,d7 

d5, FDsecRl 



FDsecR3 BSR 
beq.s 
Bove. I 

FDsecR9 BoveB. I 
tst.b 
rts 



FDrdSta 
FDsecR9 
a4,a0 

(sp)^,d5-d6 
d? 



read sector retry count 
data overrun retry count 

save 

get read sector retry count 

save user but pu 

get data overrun retry count 

get user buf adrs 

WAIT FOR READY OR TIMED OUT 

TIKED OUT ERR 

is ther data overrun 
data over run, try again. 
is ther crc error 
DO UNTIL (no crc error) 
or (no BO re retries Uiii 

check read status 



d7 contains result code 
return 



File CC PROM TEXT 
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, FDsecV 


-- Vri 


te one sector of iiU 
















Entec: 


bjftes per sec - — 


01. w 








sector adrs 


> D4.W 








buffer adrs - — 


■> AO 








floppy lust be po 


tioned on desired track 
















Eiit. 


OS result code — 


-> D7 








data to the adrs 


pointed by \0 














.FOrcVr 


equ 


4 


write sector retry count 




.FDrcOOw 


equ 


4 


data overrun retry count 














, FDsecV 


■OTCI. 


I d5-d<,-(SP) 


5a»e registers 






■OTe.w 


#FDrcWr,d5 


get write retry count 






to?e.l 


a0,a4 


save user buf ptr 














JDsecVl 


love.w 


IFOrcDOw.di 


get data overrun retry coun 














,FDsecV2 


Bove.l 


a4,a0 


get user buf adrs 






6SR 


FDwRdi 


WAIT FOR READY OH TIMED OUT 






BNE.S 


F0secV9 


TIMED OUT ERR 






BSR 


FDccVr 








btst 


l5DT0VER,d7 


data overrun? 






dbeq 


d4.rDsecW2 


yes, try again 






btst 


•SCRCERR.d? 


CRC error? 






dbeq 


dSJOsecVl 


yes, try again 
















BSR 


FDwrSta 


check write status 






beq.S 


FDsecW? 


if no error, return 






Bove.I 


a4,a0 
















JOsecW? 


toven. 


1 (sp)+.d5-dd 


restore registers 






tst.b 


d7 


d? contains result code 






rts 




return 
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3264< 


ttttt 


TYPE II 


COMMANDS ***** 












3265* 


















3266« 


















3267» 


FDccRd -- Read one sector of data 












3268* 


















3269* 




Enter: 


bytes per sec — -) 


Dl 


w 








3270* 






sector adrs > 


D4 


v* 








3271* 






buffer adrs > 


AO 










3272* 






floppy Bust be posi 


tioned on desired track 








3273* 


















3274* 




Eiit: 


status ) D7 












3275* 






data to the adrs 


pointed by AQ 








3276* 












15?4 


3F01 




3277* FDccRd 


aofe.w 


dl,-(SP) 




.save 


I59i 


5341 




3278* 




sabq.w 


tl.dl 




ibyte count 


15»« 


40E7 




327?* 




Bove.w 


sr.-(SP) 






159A 


007C 


0700 


3280* 




ori.w 


I$07fl0,sr 




idisable interrupts 


15?E 


1544 


0014 


3281* 




■ove. b 


d4,FOCSECR(A2) 






1SX2 


157C 


0080 


0010 3282* 




lofe.b 


ICRDSEC,FDCCHDR(A2) 




1 issue coBBand 


15A8 


3E3C 


001? 


3283* 




■ove w 


tZ5,d7 




,wait at least 28 aicro-5« 


15AC 


51CF 


FFFE 


3284* 
3285* 


"DccRdl 


dbf 


d7JDccRdl 




' 


ISBO 


Ulk 


0000 


0010 3286* 


rDccRd2 


btst 


ISBUSY,FDC5TRR(A2) 




.see It the ctir is busy 


1S86 


67F8 




3287* 
3288* 
3289* 
3290* 




beq.S 


FCccRd2 

TIME CRITICAL LOOP 




,3uap if not busy 


1SB8 


1E2A 


0000 


3291* FDccRd3 


love.b 


LSTRR(A2),D7 




,read status 


15BC 


0807 


0000 


3292* 




btst 


ILSDRQ,d7 




,15 DRQ there 


ISCO 


6608 




3293* 
3294* 




bne.s 


FDccRd5 




.yes , juBp 


ISCZ 


0807 


0001 


3295* 


FDccRd4 


btst 


ILSIMT,D7 




,is FDC done 


l5Ct 


i7F0 




3296* 




beq.S 


FDccRd3 




,no, jump 


15C8 


600C 




3297* 
3298* 




bras 


FDcoRd6 




,ctlr terBinated too soon 


isa 


lOEA 


0016 


3299* 


FDccRd5 


lofe.b 


FDCDATR(A2),(aO)t 




.get a byte froB IDC 


15CE 


51C? 


FFE8 


3300* 
3301* 




dbf 


d.l,FDccRd3 




,read the reaaining bytes 








3302* 




, a coiplete sector has been r 


ead. 








3303* 




, 








15D2 


6100 


OIH 


3304* 
3305* 




bsr 


FDnRdj 




' 


i5Di 


1E2A 


0010 


3306* 


'DccRd6 


■ove.b 


FDCSTRR(A2),d7 




,read the status 


15DA 


46DF 




3307* 




Bove.w 


(sp)f ,sr 




;restore SR 


iSDC 


321F 




3308* 




Bove.w 


(SP)+,dl 






15DE 


4E75 




3309* 
3310* 




rts 









Fill CC. PROM TEXT 
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FDccVr -- Vrite one sector of data 

Enter, bytes per sec ---) Dl.w 

sector adts > D4.w 

buffer ddrs > AO 

floppy lust be poitioned on desired track 

Eiit. status ) D7 

data to the adrs pointed by AO 



save 

byte cognt 



FOccVr lovcw 


dl,-(SP) 


sabq.w 


tl.dl 


■ore.w 


sr,-(SF) 


ori.w 


•$0700, sr 


BSR.S 


FDccVrl 


bsr 


FDnRdy 


■ore.b 


FDCSTRR(A2),d7 


■oTe.w 


(sp)t,sr 


tove.w 


<SF)^,dl 


tts 




FOccVrl lOTc.b 


d4,FDCSECR(A2) 


love.b 


•CVRSECJDCCMDR(A2 


tofe.w 


125, d7 


FOccVrZ dbf 


d7,FDccWr2 


FDccWr3 btst 


ISBUST,FDCSTRR(A2) 


beq.s 


FDccVr3 



««««« TIME CRITICAL LOOP 



Bove.b 


LSTRR(A2),D7 


btst 


tLS0RQ,d7 


bne.s 


FDccVr< 


btst 


ILSINT,D7 


beq.s 
rts 


FDccWr4 


Aove b 


U0)«,FOCDATR(A2 


dbf 


di,FDccWr4 


RTS 





disable interrupts 

CALL tile critical FOccWr FART 



read the status 
restore SR 



issue couand 

wait at least 28 aicro-second 



FOCSTRR(A2),d7 ;read status 
is DRQ there 
yes , map 

is FDC done 
no , jump 
tertinated too soon 

■ove a byte to FDC 
write the reaiining bytes 
return 



Ult: 


CC.PROK.TEXT 










3359« 








3360* 








3361* 








3362« 








3363* 








3364* 








336S« 








3366« 








3367* 




127C 


0000 0000 


3368* 




247C 


0003 0001 


3369* 




1E29 


070i 


3370* 




4IB7 




3371* 




CEFC 


0020 


3372* 




D5C7 




3373* 




47F8 


0900 


3374* 




1E29 


iUi 


3375* 




4817 




3376* 




5347 




3377* 




CEFC 


0100 


3378* 




07C7 




3379* 




4E75 




3380* 
3381* 



FDgetidt 



FDgetadt 



Fife 85 



Get pointers to device descciption mfo, contiolUc leqistecs, 
and static RAH fot cntrent slot 

k\ s pointer to device description info 

A2 s pointer to controller registers for slot 

A3 = pointer to static RAM for slot (CPosslot) 



■otea.l 


tO.Al 


■ove. 1 


•NDEViAD,A2 


Bove.b 


CPosslot(al),d7 


eit .w 


d7 


aula.w 


•DEVAD0F5T.d7 


adda.l 


d7,a2 


lea 


CFsllrai.w,A3 


love.b 


CPos5lot(al),d7 


eit.w 


d7 


snbq.w 


11, d? 


aaln 


•5100, d7 


adda.l 


d7,A3 


rts 





get pointer to device description into 
get pointer to controller registers 



get pointer to static RAM 



File; CCPRGH.TEXT 
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6GC 4280 

&0E 3229 0736 

612 48C3 

U4 2E3C 0000 

61A SECi 

ilC C6C7 

61E 2E03 

620 4244 
18 



0738 



622 

626 8EC4 

628 3607 

62A 4647 

62C 182? 073B 

630 4884 

632 D847 

634 IE2? 0739 

63« 4887 

63A B647 

63C 6016 

63E 0C29 0001 

644 670A 

646 08CO 0000 

64A 9647 

64C B647 

64E 6D04 

650 6000 0186 

654 4247 

656 4E75 



3383* 
3384* 
3385* 
3386* 
3387* 
3388* 
3389* 
3390* 
3391* 
3392* 
3393* 
3394* 
3395* 
3396* 
3397* 
3398* 
3399* 
3400* 
3401* 
3402* 
3403* 
3404* 
3405* 
3406* 
3407* 
3408* 
3409* 
3410* 
3411* 
3412* 
3413* 
3414* 
3415* 
3416* 
3417* 
3418* 
3419* 
3420* 
3421* 
3422* 
3423* 
3424* 
3425* 



FOclcTS -- calcalate tke Side, Track address and sector 

address for the First block requested by the aser 



Enter. Al 
D3 



- deiice table address 
> block address 



Eiit: DO. bit - side flag 

D3.W - track address 
D4.W - sector address 



FDclcTS dr. I dO 

■ove.w CFfbps(An,Dl 

eit.l d3 

tove.i •BLKSZ,d7 

di?o dl,d7 

Boio d7,d3 

love.i d3,d7 

cir.w d4 

■ove.b CPfspt(Al},d4 

diva d4,d7 

aove.w d7,d3 

swap d? 

■ove.b CPfofst(al),d4 

eit.w d4 

add.w d7,d4 

, — - bclr nCFLPSDl.dfl 

Bove.b CFftps(Al),d7 

eit.w d? 

cap.w d7,d3 

blt.s FDcIcT9 

capi.b tl,CPfspd(al) 

beq.s FDcicTS 

bset nCFLFSOl.DO 

sab.w d7,d3 

cap.w d7,d3 

bit. 5 FDclcT9 



FDcIcTS bra 



FDEbIck 



FDclcT9 clr.w d7 
rts 



get bytes per sector 

clear the upper 16 bits of d3 



absoiate sector adrs to d3 
lake sure that upper byte is 00 

absolute track adrs to tfS 

get first sector offset 
* 

get sector address 

select side (already i 

get tracks per side 

is track on side 0? 
yes, return 
is there a side 1? 
no, report error 
select side 1 
update track address 
is track on side 1? 
yes, return 

indicate block nuaber error 

indicate no error 
return 



rile; CC. PROM. TEXT 
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US8 S244 

liSJL iE29 0738 

USE DE29 073B 

Mil B807 

16i4 &C04 

U6i 4247 

1668 i042 

UiA 1829 073B 

U6E 4884 

U70 IE29 0739 

U74 0C29 OOOS 

\in 6724 



i67C Bi07 

U7E 6C10 

U80 S243 

UB2 U2C 

U84 UU 

U8i UOO ODBC 

USA UOO 012A 

U8E iOlC 

1490 4243 

U92 08C0 0000 

U9i iS40 8000 

U9A UOO 007A 

U9E iOOC 



UAO Bd07 

UA2 6C00 0134 

Hki S243 

UA8 ilOO 072E 



UAC 4A47 
UAE 4E7S 



3427* 
3428* 
3429* 
3430« 
3431* 
3432* 
3433* 
3434* 
343S* 
343i* 
3437* 
3438* 
3439* 
3440* 
3441* 
3442* 
3443* 
3444* 
3445* 
3446* 
073C 3447* 
3448* 
3449* 
3450* 
3451* 
3452* 
3453* 
3454* 
3455* 
3456* 
3457* 
3458* 
3459* 
3460* 
3461* 
3462* 
3463* 
3464* 
3465* 
3466* 
3467* 
3468* 
3469* 
3470* 
3471* 
3472* 
3473* 
3474* 
3475* 
3476* 



FDincTS -- update the sector address by one. If it was the last 
sector on the track then vpdate the Track adrs by 
one. If it was the last track then update the side 
in the Local coimand reg and DO and restore track to 0. 



Eiit; 



NE - error and D7 has error code 
EQ - successful update 07 : 



FDincTS addq.w 
■ove.b 
add.b 
cip . b 
bge.s 
cir .w 
bra.s 



• l.d4 

CPfspt(Al),d7 

CPfofst(Al),d7 

d7.d4 

FDincTl 

d7 

FDincT9 



i increment sector nuiber 
,get last sector huaber * 

iare we past last sector' 
.yes, go to neit track 
, show successful 
ireturn 



FDincTl lofe.b CFfofst(Al),d4 .reset sector number 

ejt.w D4 ;« 

■ore.b CPftps(Al>,d7 ,get tracks per side 

capi.b IDTa5,CPftyp(al);is this an Apple floppy drive 

beq.s FDincT5 iyes, process it 



Corvus 8" floppy drive 



cap.b 


d7,d3 


bge.s 


FDincT2 


addq.w 


*l.d3 


bsr.s 


FOwRdy 


bne.s 


FDincT9 


bsr 


FDccSin 


bsr 


FDskSta 


bra.s 


FDincT9 



iare we past last track on side? 
iyes, go to nest side 
, increment track number 
iwait tor ready or timeout 
.return if timeout error 
istep in 1 track 
.check seek status 
ireturn 



FDincT2 clr.w d3 .reset track number 

bset tLCFLFSDl.DO .Select side 1 

move.b D0.LCMDR(A2> .* 

bsr FDrst irestore to track 

bra.s FDiBcT9 .return 



Apple 5" floppy drive 



FDincTS cmp.b d7.d3 

bge FDEblck 

addq.w 11. d3 

bsr ADccSin 

FDincT? tst.w d7 
rts 



iare we past last track on side? 

iyes. report error 

i increment track number 

.step in 1 track 

.set return condition codes 
ireturn 



File. 
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3478* 


















347?* 


FDwRdy - WAIT UNTIL FDC SAYS 


DRIVE I 


) READY OR 








3480* 




TIHE OUT (NOT MORE THAN 1 SECOND) 








3481* 


















3482* 




Eiit: 


NE = timed out D' 


has erioi result 








3483* 






EQ = ready (D7 : 


0) 










3484* 














00000004 


348S* 


'OtaoHi 


equ 


4 




SHOULD BE AT LEAST 1 SECOND 




00007FFF 


3486* 


FDttoLo 


eq« 


$7FFF 




« 








34 87* 












UBO 


4287 




}488* FDwRdy 


CLR.L 


D7 






UB2 


43A7 


0600 


3489* 




MOVEM.V D5-D6,-(SP) 




SAVE D6 AND DS 


UB& 


3A3C 


7FFF 


H?0* 




MOVE .W 


IFDtaoLo.DS 






16BA 


3C3C 


0004 


J4?I* 
J492* 




MOVE.V 


tFDtBoHi,D6 






1 6 BE 


082A 


0007 0010 


J493* FDwRdyl 


BTST 


ISN0TRDy,FDCSTRR(A2) 


IS FLOPPY READY 


14C4 


57CD 


FFF8 


3494* 




DBEQ 


D5, FDwRdy i 




DO UNTIL (FLOPPY READY) OR (TIME OUT 


UC8 


57CE 


FFF4 


J495* 




DBEQ 


06, FDwRdyl 






16CC 


i704 




3496* 




BEQ.S 


FDwRdy? 




DIDN'T TINE OUT 


UCE 


3C3C 


FFEC 


3497* 
3498* 




MOVE.V 


IRN0TRDY,D7 






UC2 


4C9F 


0060 


J499* FDwRdr9 


NOVEH.W 


(SP)+,D5-D6 






l&Oi 


4A47 




3S00* 




TST V 


D7 




SET CONDITION CODES - NE MEANS ERROR 


i6D« 


4E75 




}50t» 
»502* 




RTS 






return 
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1601^ 61D4 

liOC Ulk 

i60E 6100 0074 

16E2 &100 00D2 

UEi 6720 

UE8 3F0S 

UEA 3A3C 0004 

16EE 61C0 

i6FD 6614 

16F2 6140 

16F4 61BA 

UF6 660E 

UFl 61SA 

UFA 0807 0004 

16FE 57CD FFEE 

1702 6100 00B2 

1706 3A1F 

1708 4A07 

170A 4E75 



3S04' 
3S0S 
3S06' 
3507 
3S08' 
3509 
3510 
3511 
3512 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522' 
3523 
3524 
3525' 
3526' 
3527 
3528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 



It is assoied that TRACK REG contains the nambec ol the track 
of the ctttient position of the read wtite Head 



Enter: D3.V - Seek track address 



FDrcSk equ 4 

rOseek BSR S FDwRdy 

BNE.S FDseek9 

BSR FOccSk 

BSR FDskSta 

BEQ.S FDseek9 

■ove.w dS,-(sp) 

BOfe.w »FDrcSk,D5 

roseekl BSR.S FDwRdy 

BNE.S FDseek8 

BSR.S FDccRst 

BSR.S FDwRdf 

BNE.S FDseek8 

BSR.S FDccSk 

btst Isseekerr,d7 

DBEQ dS.FDseekl 

BSR FDskSta 

FDseekS nove.w (sp)*,dS 

FD5eek9 TST.B D7 
RTS 



seek retry count 

WAIT FOR READY OR TIMED OUT 
TIMED OUT ERB 

check seek status 
there is NO error 
save dS 



WAIT FOR READY OR TIMED OUT 
TIMED OUT ERR 



WAIT FOR READY OR TIMED OUT 
TIMED OUT ERR 



try until no seek error or 
no aore retries 
check seek status 



set return condition code 
return 
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l7flC 48E7 0202 
1710 4DFA 00?8i 
1714 6008 



17U 
171A 



4BE7 
4DFA 



0202 
OOUf 



171E 3C3C 0004 



1722 


il6C 




1724 


i60B 




1726 


610C 




1728 


4E96 




i72A 


57CE 


FFr6 


172E 


4C0F 


4040 


1732 


4E75 





Restore the floppy to track 

It eiits when it has successfully restored the floppy to 

track or when the retry count has eihausted. 

Then it calls the FDswSta routine to analyse status. 

Note V in FDswSta. It looks at VRprot bit of FDCSTRR. 



FDrstV BOfei.I a6/di,-(sp} 
lea FDswSta, a6 
bras FDrstO 



FOrst — saae as FDrstV eicept no V there. 

It does not look at Write protect status bit in FDCSTRR. 



FOrst Botei.l ai/d6,-(sp) 
lea FOskSta.ai 



FDrstO lovew 14, d& 



FDtstl BSR.S FDwRdy 

BKE.S FDrst2 

bsr.s FOccRst 

jsr (ai) 

dbeq d6,FDrstI 

FDrst2 ■orea.i (sp)t,ad/di 
rts 



WAIT FOR READY OR TIMED OUT 
TIMED OUT ERR 



do until (successful) or (tried enough) 
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1734 
173X 



173C 
1742 



1744 
174JI 



Q0000007 
0000003S 
OOOOOQSS 
0000007S 
OOOOOOIS 



157C 0007 
(02C 



157C 0035 
4024 



i57C 0055 
601C 



174C 
1752 



1754 
1754 
175A 

175C 
1742 



1744 
1744 



157C 0075 
4014 



3F05 

1543 0014 

7A02 

1S7C 0015 
4104 



4E75 



3549 
3570 
3571 
3572' 
3573' 
3574 
3575' 
3574' 
3577 
357e 
3579' 
3580 
3581 

0010 3582 
3583 
3584 
3585 
3584 

0010 3587 
3588' 
3589 
3590 
3591 

0010 3592' 
3593 
3594 
3595 
3594 

0010 3597 
3598' 
3599 
3400' 
3401 
3402' 
3403 
3404 
3405 
3404' 

0010 3407 
3408 
3409 
3410 
3411 
3412' 
3413' 
3414' 
3415 
3414 



••«*« TYPE I COMMANDS •«««« 

FDCrst eqa CRESTOREfFSTFRTlSms^FVERIFY 
FDCstp iq« CSTEPfFSTPRT4is«FVERIFYfFUp<lttrk 
FDCstpIn eqa CSTEPINfFSTFRT4BS*FVERlFYfFUpdtttlc 
FDCstpOl eqv CSTEF0UTfFSTPRT4iSfFVERIFYfFUpdtttk 
FDCseek eqa CSEEKfFSTFRT4astFVERIFY 

, FDccRst — bring the floppy bick to track 00 

Then set the FDCTRKR ^ 

i Stepping poises ate given at the rate specified in cmd 



FDccRst ftoveb tFDCrst,FDCCKDR(A2) 
bras FDnRdf 



FDccStp -- FDCTRRR+/-1 -> FDCTRKR 



FDccStp Bove.b tFDCstp,FDCCM0R(A2) 
bta.s FDnRdf 



FDccSin -- FDCTRKRtl -) FDCTRKR 



.issue eouand 
iwait for not read) 



; issue eouand 
iwait for not ready 



FOccSin kove.b IFDCstpln,FDCCMDR(A2) .issue couiand 

bras FDnRdy jwait iot not ready 



FDccSot -- FDCTRKR-1 -) FDCTRKR 



FDccSot move.b tFDCstp0t,FDCCMDR(A2) .issue eouand 

bras FDnRdy .wait for not ready 



FDccSk — issue a seek eouand. If there is a seek error, 
flip the density flag in DO and try again 



FDccSk love.w d5,-(sp) 

love.b D3.FDCDATR(A2) 

Boveq 12, d5 

FDccSkl Boveb tFDCseek,FDCCHDR(A2) 

bsr.s FDnRdy 

btst tsseekerr,d7 

beq FDccSk2 

bchg tLSFMMFM.d? 

— - dbf d5, FDccSkl 

FDccSk2 BOfe.w Up)i.dS 
rts 



save dS 

load the desired TRACK adrs 



issue command 
wait for not ready 

no seek error 
flip the density bit 
5$$ WE MAY HAVE TO FLIP $$5 

get back dS 
return 
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!7i8 4SA7 CiOO 

inc. 3C3C 7FFF 

1770 3A3C 0002 

1774 082^ 0001 0000 

17711 56CE FFfB 

i77E 5eCD FFF4 

I78i 4C?F OOiO 

I78i 1E2A OOIG 

17gA 4E75 



FDnRdf -- VAIT UNTIL FOC SAYS DRIVE IS NOT BUS! OR TIKE OUT 
Etit; D7 s conttoller status register (FOCSTRR) 



FDnRdf lOTCM w dS-Oi,-(SF) 

■ore w trDttoLOfdi 

■ore.w 12, dS 

FOnRdfl btst ILSINT,LSTRR'(a2} 

dbNE d6,F0nRdyl 

dbNE dSJOnRdyl 

FDnRdy2 aovei.w iS?)f,i'i-ii 

HOVE.B FDCSTRR(A2),D7 
RTS 



add 3M8000 iterations 

is it busy 

DO UNTIL (not basy) or (no lore retries) 

DO UNTIL (not busy) or (no aore retries) 



GET CONTROLLER STATUS 
return 
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178C 1E2A 0010 



1790 0807 0003 

1794 &642 

179i 0807 0004 

179X U60 

179C 0807 0000 

17A0 i6d0 

17A2 0807 0007 

17A& Uii 

17A8 6028 

17AA 1E2A 0010 

17AE 0807 0006 

17B2 663C 

17B4 6004 

17B6 1E2A 0010 

17BA 0807 0004 

17BE 6636 

17C0 0807 0003 

17C4 6612 

17C6 0807 0000 

17CA 6636 

17CC 0807 0007 

17D0 &63C 

17D2 4247 

17D4 4A47 

17D6 4E75 



363 

363 

3631 

363 

3641 

364 

364 

364: 

364 

3641 

364< 

364 

3641 

364< 

3650 

36S 

365 

365 

365 

365: 

365 

365 

365 

365 

366< 

366 

366: 

366: 

366 

366 

366 

366 

366 

366 

367 

367 

367 

367: 

367 

367: 

367 

367 

3671 

367 

3680 

3681 



Check statos subroutines 

Eiit: D7 • lORESULT code 



FDtdSta aoie.b FOCSTRR(A2),d7 itead the status 
bta.s FDiwSta 



FDwtSta aofe.b FDCSTRR(A2) ,d7 
btst ISVRFROT.d? 
boa.s FDEprot 
btst ISVRFAULT.d? 
bon.s FDEheii 

FDrwSta btst t&CRCERR.d7 

bon.s FDEcic 

btst fSRNF.d? 

bon.s FDEcnt 

FDrwStl btst iSBUSy,d7 

bon.s FDEbusy 

btst ISNOTRDY.d? 

bon.s FDEntdy 

bias FDokSta 

FDswSta BOfe.b FDC5TRR(a2).d7 

btst tSVRPRQT.d? 

bon.s FDEprot 

bras FDskStl 

FOskSta Bove.b FDCSTRR(a2),d7 

FDskStl btst tSSEEXERR.d? 

bon.s FDEseek 

btst ISCRCERR.d? 

bon.s FDEcrc 

btst tsbusT,d7 

bon.s FDEbusy 

btst ISN0TRDY,d7 

bon.s FDEnrdy 

FDokSta clr.w d7 

FDerSta tst.w d7 
rts 



read the status 



no error, return 



seek error? 

SEEK ERROR IK RSLT CODE 



HARDWARE ERROR 



indicate no error 



set return condition code 
return 



File CC. PROM. TEXT 
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17D8 








FDEcic 




i:D8 


3E3C 


FFFF 




FDEbIck love.w 


tRBDBLK.d? 


.7DC 


6CFi 






bta.s 


FDerSta 


!7DE 


3E3C 


FFFE 




FDEanit love.w 


IRBDUNT.d? 


17E2 


60F0 






bias 


FDerSta 


17E4 


3E3C 


FFFD 




FOEopcd Bore.w 


IRBD0PC0,d7 


i7E8 


iOEA 






bta.s 


FDerSta 


17EA 


3E3C 


FFFC 




FDEhert Bove.w 


•RHVR£RR,d7 


1?E£ 


60E4 






bra 5 


FDerSta 


i7F0 


3E3C 


FFFfl 




FDEpiot »o»e.w 


IRWRPR0T,d7 


17F4 


^ODE 






bta.s 


FDerSta 


;7F6 


3E3C 


FFEF 




FDEseek love.w 


IRSEEKERR,d7 


r7FA 


60D8 






bta.s 


FDerSta 


17FC 


3E3C 


FFED 




FDErnf aove w 


IRRNF,d7 


iSQfl 


6CD2 




3704* 


bta s 


FDerSta 


1802 


157C 


fiODS 0310 3705* 


FD&busjr Bove.b 


•CFRCINT+FINTIMM 


1808 


3E3C 


FFEE 


370i« 


■o»e.w 


IRBUSY,D7 


180C 


60Ci 




3707* 
3708* 


bras 


FDerSta 


180E 


3E3C 


FFEC 


3709» 


FOEnrdy kove.w 


♦RH0TRDy,d7 


1811 


oOCO 




3710* 
3711* 


bias 


FDerSta 



error — CRC 

error -- invalid block nuiber 

set condition code and return 

error -- invalid anit nuAber 
set condition code and return 

error -- invalid op code 

set condition code and return 

error -- hardware 

set condition code and return 

error -- write protect 

set condition code and return 

error -- seek 

set condition code and return 

error -- record (sector) not found 
set condition code and return 

FDCCMDR(A2) 

error -- busjf 

set condition code and return 

error -- not ready 

set condition code and return 
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Piqe n 



i8H 


UCO 


0700 


1818 


IICO 


07Q6 


181C 


48711 


0038 


1820 


21DF 


0714 


1824 


487\ 


00S8 


1828 


IIDF 


0718 



182C aOO 0280 

1830 &100 0ZC2 

1834 iDlE 

1836 207C 0008 EOOO 

leSC 7000 

183E 3200 

1840 7A32 

1842 iU2 

1844 &OQE 

I84i 610E 

1848 iOOA 

184A 2Q7C 0008 EGOO 

18S0 DOFC OOOC 

1854 4E75 



3713* 
3714« 
3715* 
37U* 
3717« 
3718* 
371?* 
3720* 
3721* 
3722* 
3723* 
3724* 
3725* 
3726* 
3727* 
3728* 
3729* 
3730* 
3731* 
3732* 
3733* 
3734* 
3735* 
3736* 
3737* 
3738* 
3739* 
3740* 
3741* 
3742* 
3743* 
3744* 
3745* 
3744* 
3747* 
3748* 
3749* 
3750* 
3751* 
3752* 



File. 
Date: 

By. 



include 'CC. FROM. AD' 

CC.FROH AD.TEXT 
03-Sep-62 
Ravi Luthia 
Keith Ball 



.Apple floppy driver 



Aboot -- Apple floppy disk boot processing 



Bove.b 


dO.CPbtslot.w 


Bove.b 


dfl.CPosslot.w 


cir.b 


CPbtstvr.w 


pea 


ADblklO 


Bove.l 


(sp)+,CFblkio.w 


pea 


AOseclO 


move. I 


(5p)t,CPd5kio.w 


aoveq 


ICdO 


sove b 


dO.CPossivc w 


Kove .w 


dO.CPosblk^l.w 


aove.b 


dO,CPosdrv w 


bsc 


ADI5sssd 


bst 


AOinit 


blt.s 


Aboot90 



aove.l lUSRbase.aO 

aoveq 10, dC 

aove.w dO,dl 

aoveq iOskRead.dS 



ADblklO 
Aboot90 
ADblklO 
AbootfO 

aove.l lUSRbase.aG 

adda.w 112, aO 



bsr.! 
bit. 
bst.! 
bit.! 



set boot slot nuaber 

set OS slot nuaber 

set boot server nuaber (already G> 

set boot disk bik i/o subr pointer 

set boot disk sector i/o subr pointer 

(already 0) 
set OS server nuaber (already 0) 
set OS voluae block nuaber (already 0^ 
set OS voluae drive nuaber (already C) 
set up floppy constants 
initialise floppy drive 
just return if error 

get block butter pointer 



get read block function code 

read block 1 of boot code 
just return it error 
read block 2 of boot code 
]ust return if error 
get block buffer pointer 
get pointer to boot code 

return 
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1856 


48E7 


FE7E 


185* 


343C 


0200 


I85E 


3600 




1860 


0C45 


0033 


1864 


6606 




186ft 
186A 


6100 
6008 


FF7C 


186C 


61CC 


02A2 


1870 


6100 


0292 


1874 


4CDF 


7E7F 


1878 


5240 




187A 


4A47 




187C 


4E75 





3754* 
3755* 
3756* 
3757* 
3758* 
3759* 
3760* 
3761* 
■3762* 
3763* 
3764* 
3765* 
3766* 
3767* 
3768* 
3769* 
3770* 
3771* 
3772* 
3773* 
3774* 
3775* 
3776* 
3777* 
3778* 
3779* 
3780* 
3781* 
3782* 
3783* 
3784* 
3785* 
3786* 
3787* 
3788* 
3789* 
3790* 
3791* 
3792* 
3793* 
3794* 
3795* 
3796* 



PHILOSOPHY: The user views flopp; as a set of 512 byte blocks. 

The dtivei then translates this block to track address, sector 
address, side. 

It then Bakes the necessary noaber of request to read sectors. 
Partial sectors are not read or written, the excess is ignored. 
Sector length of an Apple floppy is 256 bytes. 

RESTRICTION: Bytes per sector aost be eiact divisor of 512 (block site). 
The block address aust be less than (2**15) /bytes per sector, 
so that when sector is foraed, it fits in the 03. V. 



ADbiklO - Read/Vrite an Apple floppy disk block subroutine 

Enter: AG.L - Buffer address 
DO.V - Block number 
Dl V - Drive nuaber 
D5.V - Read ($32) or Vrite ($33) coaaand 



Eiit: AO.L - Neit free location in buffer 
DO.V - Updated block noaber 
D7.V - lORESULT 

AH other registers are preserved. 

AObiklO HOVEH.L D0-06/Al-A6.-(sp) ,save registers 

HOVE.V IBLKSZ,D2 .BLOCK SIZE IN BYTES 

HOVE.V 00, D3 

CHPI.V tDskVrit,D5 

BNE.S AObiol 

BSR FOEopcd ,only do reads 

BRA.S AObio9 , return 



ADbiol BSR 
BSR 



ADrdwr 
ADatrof 



ADbio9 MOVEH.L (sp)«,D0-O6/Al-A6 

AODQ.V 11, DO 

TST.W D7 
RTS 



TURN THE MOTOR OFF 



INC BASE BLOCK 

SET CONDITION CODES *XB 8/24/S2* 

return 
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187E 


0C4S 


0033 




iS82 


a04 






1884 


6000 


FF5E 




1888 


48E7 


FEFE 




i88C 


6100 


FD52 




1890 


6100 


8278 




1894 


6100 


04D6 




1898 


6604 






189A 


6100 


0284 




189E 


6100 


0264 




18A2 


4CDr 


7F7F 




18Ai 


4A47 






i8A8 


4E75 







ADsctIO - Read/Write an Apple floppy disk sector 

Enter. AO.L - Buffer address 

Dl.V - Bytes pet secloi (256 tot Apple) 
D3.V - Ttack numbet (tange. C-3S) 
D4.V - Sectot nuBbet (tange. O-Ij) 
D5.V - Read ($32) ot Utile ($33) couand 

Eli I D7.V - lORESULT 

All other tegistets ate ptesetved. 



ADsecIO CKPI.V IDskViit,D5 

BNE.S ADsciol 

BRA FDEopcd 

AOsciol KOVEH.L D0-D6/A0-A6,-(sp) 

BSR FDgetadt 



BSR ADitton 

BSR ADseek 

BNE.S ADscio? 

BSR ADsecR 

ADscio9 BSR ADittof 

MOVEM.L (sp)t,D0-O6/Afl-A6 

TST.V D7 

RT3 



,aake sute cad is a read end 

,it is 

, it isn' t , tetatn eitot 

.save tegistets 

,9et addtess tegistets 

,A1 = ptt to device descttption info 

;A2 = ptt U slot conttoilet tegistets 

,A3 = ptt to slot static RAM 

, tutn on lotot 

,get to ttack specified by 03 W 

, if ettot , tetutn 

itead sectot specified by D4 W 

, tutn off Bolot 

,testote tegistets 

,set condition codes «kb 9/3/82* 

, tetutn 



File CC.PROH.TEXT 



Pige n 



OOOOOOH 
OOOOOOIC 
00000020 

00009022 



00000000 
OOOOG040 
OOODOOIO 
OOOOOOCO 



03000COO 
OOOG0E02 



OOGOOOOO 
OOOOOOOl 
0C0000G2 
00000003 



OOOOOOOG 
OOOOOOOl 
00000002 
00000003 



3S31 
3832 
3833 
3834 
383S< 
3336 
3837' 
3838 
38391 
3840 
3841 
3842 
3843 
3844 
3845 
384i 
3847 
3848 
3849 
3850 
3851 
3852 
3853 
3854 
38SS 
385i 
3857 
3658 
3859 
3860 
3861 
3862' 
3863 
3864' 
3865' 
3866 
3867 
3868 
3869' 
3870' 
3871 
3872 
3873 
3874 
3875 
3876 
3877 
387 8 
3879' 
3880< 
3881 



index into static RAM to roattnes 



SRAKln4 equ 
SRAI1in5 equ 
SRAHin6 equ 
SRAHlnw equ 

,RAKrd4 equ 

.RAHrdS equ 

,RANtd6 equ 

,RANwt equ 

.RAHend equ 

SRAMrd4 equ 

SRAMrdS equ 

SRAKrd6 equ 

SRANwt equ 



AOrd4E-AOrd4B 
ADtdSE-ADidSB 
AOrd6E-ADrd6B 
AOwaitE-ADwaitB 



SRAHid4>3RAHln4 
SRAHtd5fSRAHln5 
3RAMrd6^SRAHin6 
SRAMwt+SRAKInw 

$00 
$40 
$80 
$C0 



ADrd4 routine (READ) 
AOrdS routine (READ) 
ADrd6i routine (READ) 
ADwaitB routine (SEEK) 
Must be <= $100 

ADrd4 routine (READ) 
ADrdS routine (READ) 
ADrd6l routine (READ) 
ADwaitB routine (SEEK) 



, FRENIE16 routine niblixes the user data into 6/2 forsat 
, and places in Nbufi and Nbuf2 buffers 



NBUFi equ CFiobaf 
NBUF2 equ NBUflt238 



, MI/ST BE AT LEAST 258 BYTES 
,$60 Ml BYTES 



, AREA FOR THE TEMPORARIES AND OTHER VARIABLES 

APL5VAR equ NBUF2i$60 

, I) for 'ADccSK' subroutine 

TRKCNT equ 

PRIOR equ 1 

'RKN equ 2 

CURTRX equ 3 

2) tor 'ADccRd' 

suard equ CURTRK^l 

3) FOR 'ADrdad' 

AHBUF equ AFL5VARf$20 
Indices to fields in AHBUF 



,NEED AT MAI. 32 BYTES FOR TEHP 



AMfol equ 

AHtrk equ AHfoItl 

AHsec equ AKtrkfl 

AKchksa equ ANsec+1 



.voiuae naae in adr aark 
track I in adr aark 
sector • in adr aark 
check sua in adr aark 
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3883* , 

3884« i NIBL table 

388S* , 

388i* , MIBL boffer is ased to tiansUte tost significant 6 bits of a byte into 

3887* ; 8 bits of disk data. PREMIBLEli routine partitioned 8 bits of asei data 

3888* , into ill format. The i bit data is left justified, thus every 4th entry 

3889* ; of the table is used in nibliiing. Every fourth entry contains the nible 

3890* , code for a 6 bit left justified data nibble, i bits of data can take a 

3691* ; value frot to 3F. 

3892* , 

3893* i Interspersed in thet is the denible code for the lower I bits of data byte 

3894* , offset w.r.t. DNIBL2, DNIBL3, DNIBL4. These values are used to get the 

389S* i least significant 2 bits of user data while reading data frot floppy 

3896* , 

18AA 00 3897* DATA.B ,£VEN OUT 

18AB 00 3898* DNIBL2 DAT&.B 

18AC 00 3899* DNIBL3 DATA.B 

18XD 00 3900* DNIBL4 DATA B 

3901* 

18AE n 02 00 OC 97 01 3902* NIEl data.b $96, 2,G.fi,$97, 1,0,0, $9A,3 J,0, »9B,G,2,0 

18B4 00 00 9A 03 00 00 

18BA ?B 00 02 80 

18BE 90 02 02 30 ?E 01 3?03* data.b (90, 2,2,0, $9E. 1,2,0, $9F, 3,2,0, $A&,Q ,1,0 

18C4 02 00 n 03 02 00 

18CA H 00 01 00 

18CE A7 02 01 00 AB 01 3904* data.b $A7,2,1,0, iAB, 1, 1,0,$AC,3, 1,0, UO,0,3,0 

18D4 01 0-3 AC 03 01 00 . 

18DA AD 00 03 00 

18DE AE 02 03 00 AF 01 3905* data.b $AE, 2.3,0. $AF, 1,3,0, $B2, 3,3,0, $B3, 0,0, 2 

18E4 03 00 62 03 03 00 

18EA B3 00 00 02 

18EE E4 02 00 02 B5 01 3906* data.b 5B4, 2,0,2, $BS, 1,0,2. $B6, 3,0,2, $B7, 0,2, 2 

18F4 00 02 B6 03 00 02 

18FA B7 00 02 02 

18FE B9 02 02 02 BA 01 3907* data.b $B9, 2,2,2, $BA, 1,2.2, $BB,3, 2,2, SECO, 1, 2 

1904 02 02 SB 03 02 02 

190A flC 00 01 02 

190E BO 02 01 02 BE 01 3908* data.b VBD,2,1,2,$BE,1, 1,Z, $BF,3, 1,2, $CB,Q,3,2 

1914 01 02 BF 03 01 02 

191A CB 00 03 02 

191E CD 02 03 02 CE 01 3909* data.b $CD, 2,3,2, 5CE, 1 ,3,2,$CF, 3, 3,2, $D3,fl,0, 1 

1924 03 02 CF 03 03 02 

192A 03 00 00 01 

192E 06 02 00 01 07 01 3910* data.b $D6,2,0, l.$C7, 1 ,3, 1 ,$O9,3,0, I, SDA,0,2, 1 

1934 00 01 D? 03 00 01 

193A OA 00 02 01 

193E DB 02 02 01 DC 01 3911* data.b $OB,2,2, i.$OC. 1,2, 1,$DD,3,2, I, $DE,a, 1, i 

1944 02 01 DD 03 02 01 

194A DE 00 01 01 

194E OF 02 01 61 ES 01 3912* data.b $DF,2, 1, l,$ES.l, 1,1,$E6,3, 1, 1, $E7,0,3, 1 

1954 01 01 E6 03 01 01 

195A E7 00 03 01 

19SE E9 02 03 81 EA 01 3913* data.b $E9,2,3, 1,$EA, 1,3, 1,$EB, 3, 3, 1,SE£,0,0,3 

1964 03 01 EB 03 03 01 
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196A EC 00 00 03 

:?6E ED 02 GO 03 EE 01 3914* dati.b JED, 2, 0, 3, $£E, i ,0,3, $EF, 3,0, 3, 5F2,0, 2, 3 

1974 00 03 EF 93 00 03 

i9:a , r: oo 02 53 

197E f3 02 02 03 U fli 3915* data b JF3, 2, 2, 3, 5F4 , 1 , 2,3, $F5 ,3 ,2,3, $F< ,0 , 1 , 3 

1981 02 03 F5 03 02 03 

;98A F6 00 01 03 

198E F'' 02 31 03 F9 01 39U» data.b $F7, 2 , 1 , 3, 5F9 , i , 1 ,3, 5FA,3, i ,3, $FB, 0,3, 3 

19'H 31 03 FA 03 Cl 03 

199A FB 00 03 33 

1?'£ FC 02 03 03 FD 01 3917* data.b 5FC, 2, 3 , 3, 5FD, 1 , 3, 3, $FE, 3, 3, 3, iFF, ,2, 3 

19A4 03 03 FE 03 03 03 

IrAA tF 00 02 03 

3918* 

3919* , 

3920* , NIBL table 

3921* , 

i-'AE 3000 0000 0000 3922* DNIBL data w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

19B4 0000 0000 3000 

•.9SA 0000 OOOG 0000 

ivCfl 0030 0000 0000 

I'Co 0000 OCflC COOQ 

i9CC 0000 

i9:E OCCO QOflO 0000 3923* data w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

lrD4 0000 0000 0000 

I9CA 0000 flCOO 0000 

!9E(! 0000 0000 0000 

'.yEfi 0003 0000 0000 

19 EC QCOG 

19EE OCOO 0000 0000 3924* data w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

15F4 0000 0000 0000 

WFA OOCQ OCOO 0000 

iAflO 0000 0000 0000 

:AC6 30C0 0000 0000 

lAOC OCOO 

lAOE OCCO COCO coco 3925* dataw 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

iAil 0000 0000 0300 

lAiA 3000 OCOO 0000 

iA20 OOCO OOOO 0000 

:A2a 0000 0000 0000 

lAZC 0000 

1A2E 0000 0000 CQOO 3924* data.w 0,0,0,0,0,0,0,0,0,0,0 

iA34 0000 0000 0000 

:A3A COOO OOOO ocoo 

iA40 0030 0000 

3927* ,96 HEX BYTES DISPLACEMENT r 150 DECIMAL 

iA44 00 04 98 99 08 OC 3928* data b 000,004, $98, 599,008, $0C, $9C, $10 

;A4A 9C 10 

:A4C ;4 18 AO Al A2 A3 3929* data.b 514, $18, SAO, $A1 , $A2, $A3, SA4 , $A5 

1A52 A4 A5 

1A54 IC 20 A8 A9 AA 24 3930* data b $1C, 520 , $A8 , $A9 , $AA, 524 , $28 , 52C 

iA5A 2e 2C 

;A5C 30 34 BO Bl 38 3C 3931* data b $30, 534 , $80, 5B1 , 538, $3C, $40, $44 

lAU 40 44 
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ikH 






B8 


50 


54 58 3932* 


1A6A 












IkiZ 






CO 


CI 


C2 C3 3933* 


IkU 












1A74 






C8 


C9 


CA 6C 3934* 


\Kn 












1A7C 






DO 


Dl 


D2 7C 3935* 


1A82 












1A64 






08 


88 


8C 90 3936* 


1A8A 












1A8C 






EO 


El 


E2 E3 3937* 


1A92 












1A?4 






EB 


BO 


B4 B8 3938* 


un 












1A?C 






FO 


fl 


CC DO 3939* 


1AA2 












IAA4 






re 


E4 


E8 EC 3940* 


lAAA 












lAAC 










3941* 
3942* 



daa.b $4B,HC,;Be,$S0,$54,$5B,i5C,$6(l 

diti b i64,568,$C0,JCl,5C2,$C3,$C4,$C5 

data.b 5C6, $C7,$C8, iC9, JCA, $6C, $CC, $70 

data.b $74, S78,$DC, $D1 ,$D2,57C, 5D4,5D5 

data.b $80, 584, $08, $88, SBC, $90, 594,598 

data.b $9C, $A0 , $E0, $El , 5E2, $E3,$E4, $A4 

data.b $A8 , $AC;$EB, $B0, $B4, »B8, $BC,$CC 

data.b $C4, $C8,$F0,$F1 , $CC, 5D0, $D4, $D8 

data.b $DC, $E0, $F8, $E4, $E8, $EC,$Ffl, $F4 

data.b $F8,$FC 

, it ends on even boondiry 
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COQOOOOO 
00000002 



00000000 
00000002 



00000004 
OOOOOOOi 



00000008 
OOOOOOOA 



OCOOOOOC 
OOOOOOOE 



00000010 
00000012 



00000014 

oooooou 



Apple floppy contioiUr equates 

These are the indei values correspondiag to the base address of the slot 
calcolated by FDgetadt sobtoatine 

Coiaands to the floppy are issued by setting oc resetting the bits in the 

addressable latch of the type 74LS2S9. 

These bits can be set or reset by Baking a READ/WRITE reference to these 

addresses. In general, we lake a read reference to the addresses assigned 

to the^e bits (indeied w.r.t Device Select addresses). 

For write operations, these bits are set/reset by making a write reference 

NOTE; 

The CONCEPT address bit Al is tied to APPLE slot address bit ADO and 
farther BITO of Apple slot is ased to turn on or off a bit in 74LS2S9. 
Thus, Apple addresses are 4 * CONCEPT addresses. 



Address bits o 

adOon equ 

The following 

PHASEOFF equ 
PHASEON equ 

PKASEOOFF equ 
PHASEOON equ 

PHASEIOFF equ 
PHASE ION equ 

PHASE20FF equ 
PHASE20N equ 

FHASE30FF equ 
PKASE30N equ 

HOTOROFF equ 
NOTORON equ 

DRVOEN equ 
DRV 1 EN equ 



Apple floppy controller to the address bits of CONCEPT 



re the equates for the bits of the latch 



tO 
fadOon 



tO 
fadOon 



*4^0 
*4tadOon 



«4+0 
*44^ad0on 



«4*0 
*4tad0on 



MvO 
*4fad0on 



M+O 
*44adOon 



turn phase OFF 
turn phase ON 



phase off 
phase on 



phase 1 off 
phase 1 on 



phase 2 off 
phase 2 on 



phase 3 off 
phase 3 on 



tor off 
■otor on 



drv enable 
drv i enable 
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OOOOOOIB 
OOOOOOU 
QOOOOOIC 
QOOOOOIE 



UAE 
UAE 



1AB2 
lABB 
lABE 
1AC4 
lACA 
lADO 
IAD4 
lADA 
iADE 
tAE2 



1AE4 
IAEA 
lAFO 



0738 
0739 



337C 0118 0734 

337C OiOO 073i 

137C 0010 

137C 0023 

137C 0001 073A 

4229 073B 

137C 0005 073C 

487A OOOSi 

235F 0730 
4E7S 



00 02 04 66 08 OA 
QC OE 01 03 OS 07 
09 OB OD OF 



3992 
3993 
3994 
3995 
39961 
3997 
3998' 
3999 
1000< 
4001 
4002 
4003 
40041 
4005 
4006 
4007 
4008 
4009 
4010' 
4011 
4012 
4013 
4014' 
4015 
4016 
4017 
4018 
4019 
4020 
4021 
4GZ2 
4023 
4024 
4025 
4026 
4027 
4028 
4029 
4030 
4031 
4032 
4033 
4034 



Q6 and Q7 define the operition of controller 



Q6L eqa $6M«0 

Q6H eqa $6MfJid0on 

Q7L equ (7Mt0 

Q7H eqa $7M-»ad0on 



,07 Q6 OPERATION 

,1 L letd disk dait 

iL H sense write protect 

,K L write disk daii 

,H H write store 



To write the disk data 

set Q7 high (=1), Q6 low (=0) 
set Q6 to high then to low 

To read the disk data. 

set Q7 low and set 06 tow 



GENERAL EQUATES 
LHBUF2 eqa $56 .length of buffer nbufZ 



ADISsssd -- Set up constants for Apple 5" single side single density 



bsr FDgetadr 



notre.w 
Bove w 
ftove.b 
Bove.b 
aove b 
clr.b 
Bove b 
pea 

BO ve . I 
rts 



INBLX5SD,CPfdvsi(Al) 

IBPSSISD,CFfbps(Al) 

ISCFTSSD.CPfsptCAl) 

fXKPSSSD.CPftpsUl) 

tl,CFfspd(Al) 

CFfofst(Al) 

IDTa5,CFftyp(Al) 

ADilvtb 

(sp)+,CFfinlT(Al) 



set address registers 

Al = ptr to device description info 

A2 s ptr to slot controller registers 

A3 = ptr to slot static RAM 

set device site m blocks 

set bf tes per sector 

set sectors per track 

set tracks per side 

set sides per disk 

set first track offset 

set floppy type 

set interleave table pointer 

.return 



Interleave table for Apple floppy disk drives 
ADilvtb daii.b $0, i2.54,$6,$8,$A,$C, JE, H ,$3,$5, S7,59, JB, $D, $F .Pascal 



4035« , data.b 

4036* , data.b 

4037* 



$0,$3,$6,$9,$C.iF,$Z,$5,$8,IB,$E,$l.$4.J7,5A,iD 
$0.$D,$B,J9,$7,$5.53,$1,$E.$C,SA.$8.U,S4.$2,$F 



CF/M 

DOS Basic 
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lAFS 6110 

iAFA 6100 02BS 

lAFE 6104 

IBOO 4A47 

1B02 4E7S 



4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4041 
404? 
4050 
4051 
4052 
4053^ 
4054^ 
405S 
4056' 
40571 
40SS 
4059 
4060 
4061 
4062 
4063 
4064 
4065' 
4066 
4067 
4068 
4069 
4070' 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 
4085 



AOinit •- Initialtxe Apple floppf disk drive 

AOittit BSR FDgetidr ,set address registers 

,A1 = pointer to device description info 
,A2 = pointer to slot controller registers 
,A3 = pointer to slot static RAN 
m 8/23/82t IN RON DOESN'T NEED ROUTINES IN STATIC RAN 
, MOVE WRITE CRITICAL CODE INTO THE STATIC RAM 



MOVEM L A4-A6,-(sp) 

LEA ADrd4B,a4 

LEA SRAMrd4(A3),a5 

LEA AOrd4E,a6 

BSR S ADaof 

LEA ADrdSB,a4 

LEA - SRAHrd5(A3),aS 

LEA ADrdSE,a6 

BSR.S ADior 

LEA ADrd6B,a4 

LEA SRAMrd6(A3),aS 

LEA AOrd6E,a6 

BSR.S ADiOf 

LEA ADwaitB,a4 

LEA SRAHwt(A3},a5 

LEA ADwaitE,a6 

BSR S ADbov 

MOVEM. L (sp)+,A4-A6 

, do restore of drire 

BSR.S ADitron 

BSR ADrst 

BSR S ADitrof 

TST.W 07 
RTS 

iAOlOT MOVE V (A4)>,(A5)t 

CMPA.L A4,A6 

BNE.S AObov 
; rts 



save registers 

BEGINNING OF CRITICAL AREA 
VHERE IT GOES 
AFTER CRITICAL CODE AREA 
MOVE CODE 

BEGINNING OF CRITICAL AREA 
VHERE IT GOES 
AFTER CRITICAL CODE AREA 
MOVE CODE 

BEGINNING OF CRITICAL AREA 
VHERE IT GOES 
AFTER CRITICAL CODE AREA 
MOVE CODE 

BEGINNING OF CRITICAL AREA 
VHERE IT GOES 
AFTER CRITICAL CODE AREA 
MOVE CODE 

restore registers 



TURN ON MOTOR 

restore to track 

TURN MOTOR OFF 

set condition codes «kb 9/3/82* 

return 

,>OTe code to static RAN *!(B 
finished aoving code? 
no, Bove neit word 
retora 
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1B04 102A 0010 
IBOt 4E7S 



IBOA 102A OOIZ 
IBOE 4E7S 



4087* 
4068* 
408?« 
4090* 
40H« 
4092* 
4093* 
4094* 
4095* 
4094* 
4097* 
4098* 
4099* 
4100* 
4101* 
4102* 
4103* 
4104* 
4105* 
4106* 
4107* 
4108* 
4109* 
4110* 
4111* 
4112* 
4113* 



DO.V 
Dl.V 
D2.V 
D3.V 
D4.V 
05. V 
Di.V 



- FREE 
-- FREE 

-- BYTE CNT 

- BASE BLK 
-- FREE 

- USER CHD 
-- FREE 



AO.L -- USER BUFFER ADDRESS 

ALL - DEVICE DESCRIPTIOH AREA RASE ADDRESS 

A2.L -- FLOPPY CONTROLLER BASE ADDRESS 

A3.L -- STATIC RAM BASE ADDRESS 



, ADmtrof -- turn aotoi off 



ADBtrof MOVER MOT0R0FF(A2) ,D0 .TURN OFF FLOPPY DRIVE MOTOR 
RTS itetoro 



ADatron -- turn aotoi on 



ADation HOVE.B MOT0R0H(A2),0Q ,TURN ON FLOPPY DRIVE MOTOR 
rts itetorn 
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IBiO 6100 FACE 



1B14 


4Ay 




IBi4 


&B3C 


fCCO 


iBlA 


B66? 


0734 


IBlE 


6CC0 


fCB8 


mi 


6100 


FAE8 


lB2i 


66U 




iB28 


6lEG 





IBZA 


6100 


ia2E 


HOE 


iB30 


9441 


1B32 


6B0A 


1B34 


611A 


mi 


6 606 


1B38 


6100 


133C 


6 7F2 


IB3E 


4E75 



411 5» 
411 6« 
4117« 
4118* 
4119* 
4120* 
4121* 
4122* 
■4123* 
4124* 
41i5« 
4126* 
4127* 
4128* 
4129* 
4130* 
4131* 
4132* 
4133* 
4134* 
4135* 
4136* 
4137* 
4138* 
4139* 
4140* 
4141* 
4142* 
4143* 
4144* 
4145* 
4146* 
4147* 
4148* 
4149* 
4150* 
4151* 
4152* 
4153* 
4154* 
4155* 
4156* 
♦157* 
4158* 



FDgetadr 



TST V D3 

BMI FDEblck 

capw CPfdTst(Al),d3 

bge FDEblck 

BSR FDclcTS 

6KE.S ADidwc? 

BSR.S AOntcon 



set address registers 

Al ~ pointer to derice description info 

A2 = pointer to slot controller registers 

A3 = pointer to slot static RAM 

test base block 

}UBp tf first blk rqstd is invalid 

is it in liBi t 

iuap final block eiceeds sai 

conpute track and sector 
If error, retarn 
, tarn totor on 



DO.V 


- FREE 












DI.V 


-- BYTES PER SEC 












D2.V 


-- WORD CNT 












D3.W 


- TRACK ADDRESS 












04 V 


-- SECTOR ADDRESS 












D5.V 


-- USER COMMAND 












D6 W 


-- FREE 












READS/VRITES ONLY COMPLETE 


SECTORS 










For the 


rest of the code: 














AS points to 


the user buffer address 








Al points to 


the beginning of the 


device 








table ent 


ry for this 


vol use in 


DO at 


the 


entry 




A2 Contains 


the NDEVICE 


address 


i the s 


lot 






specified 


in the de» 


ce table 


for thi 


s Voiuae 




A3 BASE ADDRESS OF LOCAL STATIC RAM 







bsr 
bne.s 

ADrdvrri sab.w 
bii . s 
bsr.s 
bne.s 
bsr 
beq . s 

A0rdwr9 cts 



ADseek 
ADrdwr9 

di,d2 

AOrdwrf 

ADsecR 

ADrdwr? 

FDincTS 

ADrdwrl 



seek the desired track 
if error, retarn 



}aBp,no aore full sectors to rd 

read a full sector 

error, eiit 

get neit sector address 

if ok, read the neit sector *KB 8/2/82* 

.return 
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IB40 




0730 


lB4i 






1B48 




40&0 


1B4C 






1B4E 







4eE7 


FA4E 


4 ilU 




i 40E7 




8 0(17C 


0700 


C 3C3C 


7FFF 


S 284B 




2 204C 




4 6100 


OUA 


8 6608 




K 6112 




C 57CE 


FFr4 


6702 





460F 

4CDr 725F 

4A47 

4E75 



4160 
4161 
4162 
4163 
4164 
4165 
4166 
4167 
4168 
4169 
4170' 
4171 
4172 
41731 
4174 
4175 
4176 
4177 
4178 
417? 
4180 
4181 
4182 
4183 
4184 
4185 
4186 
4187 
4188 
4189 
4190 
4191 
4192 
4193 
4194 
4195' 
4196 
4197' 
4198 
4199' 
4200 
4201 
4202 
4203 
4204 



ADinU -- get the physical sector nuabet for the logical sector nuiber 
specified in D4 V 

Enter Dm.W z logical sector nuaber 

Eiit D4.V = physical sector naaber 

ADinlv Bove I AO,-(sp) ,save register 

aove.l CPfiniv.w.AO ,get interleave table pointer 

beq.s AOinU? ,just return it no t^ble pointer 

aove.b 0(A0,D4.V) ,D4 ,get physical sector nuaber 

AOinlv? aove 1 (sp}4,A0 .restore register 
rts .return 



ADsecR -- find the desired sector on the current track by using ADfsec 
If the sector is found then call ADccRd to read the sector 
into the buffer. 



ADrcSc equ 57FFF 



ADsecR MOVEM.L D0-D4/D6/A1/A4-A6,-(3P) ,sa»e registers «JCB 8/23/82« 



retry count «KB 8/23/82« 



bsr.s ADinl? 

MOVE.W SR, -(SP> 
ORI.V l$0700, SR 

MOVE.W IADrcSc,D6 
MOVEA L AD,A4 

ADsecRl MOVEA. L A4,A0 
BSR AOfsec 
BNE.S A0secR2 
BSR.S AOccRd 
DBEQ D6. ADsecRl 
BEQ.S ADsecR9 

ADsecR2 aovea.l a4,a0 

ADsecR9 

MOVE.V (SP)+,SR .restore sr «KB 8/23/82* 

MOVEM.L (5P)i,D0-D4/D6/Al/A4-A6 ,save registers *KB 8/23/82* 
TST.V D7 ,set return condition code 

RTS ;retDrB 



get physical sector nuaber 



save sr *KB 8/23/82* 

turn off interrupts *KB 8/23/82* 



retry count 
SAVE Afl INTO A4 



find sector 

sector not found - exit 

read sector 

do untiKsector read) or (no aore retries; 



error, so recover aO 
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420i* 












4207« 


ADccRd " tead 8 bit bytes a 


f disk data, retranslates to data, 








4208* 


then peifora the E 


iclusiie ors to get user data 








4209« 












4210* 


First 56 b;tes of nbat2 data 


are read in. 








4211* 


Then the nobfl data is read 


in three groups 








4212* 


first and second group of 86 


(56H) data, the last group 








. 4213* 


of 256-86-86 bytes i e. left 


over bytes. 








4214* 












4215* 


Groupl is de-niblized using 


denibliimg table 0N1BL2 








4216* 


Croup2 is de-nibliied using 


denibliting table DNIBL3 








4217* 


Groups IS de-nibiixed using 


denibliiing table DNIBL4 








4218* 












4219* 


disk data foriat 










4220* 


♦-- prologue — +— data field - -+— cksaa --+-- epilogue -- 








4221* 




1 ! 








4222* 


; DS AA AO 1 342 bytes 


f disk data i one byte i OE AA Efi 








4223* 


; I 


; 1 








4224* 
4225* 


















00000400 


4226* 


^DrcRd equ $400 


;read sector retry count 








4227* 






1B7E 


48E7 


02G8 


4228* 
4229* 


ADccRd loieBl d6/a4,-(sp) 


,*KB 8/23/82* 








4230* 


; 1) read prologue of 


disk data field. Try 1024 tiaes. 








4231* 


; If prologue not found, indicate error 








4232* 






mi 


3E3C 


0400 


4233* 
4234* 
4235* 
4236* 


aove.w lADrcRd.d? 
, SEARCH FOR PROLOGUE 


.RETRY COUKT «KB 8/24/82* 


lESi 


51CF 


0006 


4237* 


iDccRdl dbf d7,ADccRd2 




iB3A 


6C0S 


0086 


4238* 
4239* 


bra AOccRdS 




1B8E 


102A 


0018 


4240* 


^DccRd2 love.b Q6L(a2),d0 


, check for 05 HEX 


IB92 


UFA 




4241* 
4242* 


bpl.s AOccRd! 


;iBp if byte has not been asabld 


IB94 


B03C 


OOOS 


4243* I 


DccRdS cmp.b t$OS,dO 


,is a part of prologue 


1B9I 


6iEC 




4244* 
4245* 


bne.s AOccRdl 


,no 

;»K8 8/23/82* DELAY A LITTLE 


IB9A 


4240 




4246* 


cir.w dO 


, clear bit 8 to IS of D reg 


1B9C 


4241 




4247* 


clr.w dl 


iclear bit 8 to 15 of D reg 


mi 


4243 




4248* 


clr.w d3 


;clear bit 8 to IS of D reg 
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[BAG 102A 0018 

.BA4 6AFA 

iBAi B03C OOAA 

IBAA A6E8 

[BAG 4242 

IBAE 49FA rDFE+ 

iBB2 102A COia 

IBBi &AFA 

IBB8 B03C OQAD 

IBBC 6i06 



IBBE 4BF8 0E02 
1BC2 3C3C OGSS 
1BC& il56 



IBCa 43F8 ODOO 
IBCC 3C38 0736 



IBOO ilK 
1BD2 i642 



1B04 43F8 ODOO 



iBD8 4BF8 0E02 

IBOC 4DFA FCCDi 

IBEO 3C3C OOSS 

1BE4 614C 



4250' 
4251 
4252 
4253' 
4254 
4255 
4256' 
4257 
4258' 
4259 
4260 
4261 
4262 
4263 
4264 
4265 
4266 
4267 
4268 
4269 
4270 
4271 
4272' 
4273 
4274 
4275' 
4276 
4277 
4278 
4279 
4280' 
4281 
4282 
4283 
4284 
4285 
4286 
4287 
4288 
4289 
4290' 
4291 
4292 
4293 
4294 
4295 
4296 
4297 



ADccRd4 AO?e.b Q6L<i2),dO 

bpl.s ADccR(14 

cip.b l$AA,dO 

bne.s ADccRd3 

clr.w d2 

LEA DNIBL, A4 

ADccRdS Bove.b Q6L(i2),dO 

bpl.s ADccRd5 

cip.b t$AD,dO 

bne.s ADccRd3 



.check tot AA hei 

,]Bp it byte has not been isabld 

, IS a pait of ptologue 

,no, see if start of pcoiogue 

,«KB 8/23/82* DELAY A LIHLE 

.clear bit 8 to IS of D req 

.translate table 

;check for AD hei 

.iap if byte has not been asabld 

,is a part of prologue 

;no, see if start of prologue 



2) prologue has been found, read S6H bytes of disk data into NBUF2 
This DATA is then used to get the LEAST SICNIflCANT 2 BITS OF A BYTE 
NOTE THIS DATA IS OF THE FORM. 
N5S eor. fi 
N54 .eor. N5S 
N53 eor. N5f 
K52 eor. N53 



NOl eot. N02 
NOO .eor. KOI 



LEA NBUF2.V, A5 

NOVE.V tLNBUF2-l, D6 

BSR.S ADrd4 

isr SRAHrd4(A3) 



D2 is 



MOO 



LEA NBUFl.V, Al 

KOVE.w CPfbps.w,D6 

BSR.S ADrd6 

jsr SRAHrd6(A3) 

bne.s ADccRd9 



,*K6 8/23/82* 

,*KB 8/23/82* 

.Read into NBUF2,*KB 8/23/82* 

iRead NBUf2 ,NOT MOVING TO STATIC RAM 



,*XB 8/23/82* 

itead 256 bytes of data one byte of chk sub 

,and verify epilogue 

,«KB 8/23/82* 

,DQ ADrd6 CODE <===== LOOK '!'>'! 

.jap if error 



, TRANSLATE the data read froa the disk. 

LEAL NBUFl.W.Al .REPOSITION PTR TO BEGINNING 

3) translate first group of S6H bytes i.e: 86 bytes 



leal NBUF2.V,A5 

lea. I DNIBL2.a6 

Bove.w •LNBUF2-l,d6 

BSR.S ADrdS 



,RD5 GROUP 
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IBEt 4BF8 Un 

IBEA 40rA FCCOf 

IEEE 3C3C 0055 

IBF2 413E 



1BF4 4EFa 0E02 

1BF8 4DfA fCE3+ 

IBFC 3C38 0736 

ICOO DC7C FF53 

1C04 612C 



ICO 4 


4247 


1C08 


1019 


ICOA 


1234 


ICOE 


S302 


iClfl 


6704 



iCl6 4CDF 
ICU 4A47 
iCiC 4E75 



4299 
4300 
4301 
4302 
4303 
4304 
4305 
43 Oi 
4307 
4306 
4309^ 
4310 
4311 
4312 
4313 
4314 
4315 
4316 
4317 
4318 
43 If 
4320 
4321 
4 32 2 
4323 
4324 
4325 
4326 
4327 
4328 
4329 
4330 
4331 



, 4) translate second group ot S6H bytes Kdi CROUP 
D2 contains A5S 

lea 1 NBUF2.V,aS 

lea.i DNIBL3,a6 

loie w tLNBUF2-l,d6 

BSR.S ADrdS ,*KB 8/23/82* 

5) translate the third, last group. R07 GROUP 
D2 contains Aab 

ea.I NBUF2.V,a5 

lea.i DNIBL4,a6 

HOVE w CPfbps.w,D6 .REKAINIHC OF ZSi BYTES 

add w •(-LNBUF2-LNBUFi)-l,d6 ,« 

6SR.3 ADrd5 ;*K6 8/23/82« 

NOTE that the last bfte cf user data was written as CHK SUM 

so read the last bfte and compare with chk sus EOR should be ZERO 

D2 contains Aff 



cir.w d7 

sofe b <al)^,dO 

■oveb 0(a4,d0),dl 

eor.b dl,d2 

beq s A0ccRd9 

AOccRdS Aove.w IRRNF.d? 

ADccRd9 Boveati (sp)f,di/a4 

tst w d7 
rts 



d7 sO indicates no error 

dniblite disk data bfte 

no chk SUB error if sero rslt 

error code to d7 

restore registers ,«KB S/23/82* 

set return condition code 

return 
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ICIE 

ICIE 102A 0018 

1C22 iAFA 

1C24 1234 0000 

1C28 lACl 

1C2A B302 

1C2C 51CE FFFO 

1C30 4E75 

1C32 











1019 






1234 


0000 




B302 






161D 






1E3& 


3000 




BF02 






10C2 






SICE 


FFEC 




C43C 


OOFC 




4E75 











1C4E 

1C4E 

1C4E 102A 0018 

1CS2 6AFA 

1CS4 12C0 

IC54 51CE UU 



1C5A 


102A 


0018 


1C5E 


iAFA 




ICiO 


4247 




lCi2 


BD3C 


OODE 


IC&i 


4702 




1C68 


7EED 




1C6A 


4A47 




1C6C 


4E75 




1C6E 









, 










; A0td4 


-- lofed to and eiecated 


at SRAHtd4(slot static RAM) 














ADtd4B 






start of SRAHrd4 code 




ADrd4 


Bove.b 


QU(a2).dO 








bpl s 


A0rd4 


imp if byte has not been asabld 






•OTC.b 


0(a4,dO),dl 


dnibiiie disk data byte 






lOfe.b 


di,(a5)* 


store It. It is Nil) EOR N(I-l) 






eor .b 


dl.dl 


ULTIMATELY d2 = NOO 






dbf 


di.ADrd4 








rts 




return 




ADrd4E 






end of SRAKrd4 code 














; 










, ADrdS 


-- Tnnslate bytes «»not 


done m tiae critical section** 














ADcdSB 






start of SRAHrdS code 




ADrdS 


Bo»e.b 


(aDi.dO 


U 






■otre.b 


0(a4,dO},dl 


18 dnibiiie disic data byte 






eot.b 


dl,d2 


4 






■ove.b 


(aS)f,d3 


12 qet an entry of nbaf2 






•ove.b 


0(a6,d3),d7 


18 get low order bits bi.bO ot 






eor b 


d7,d2 


4 a byte and mask thei into byte 






lOfe.b 


d2,(aO)4 


14 store the byte into user area 






dbf 


d4,A0rdS 


10 










TOTAL = 106 CYCLES 






and.b 


•$FC,d2 


■ask of 2 LSbits. Now d2 contains ASS 






rts 




return 




ADrdSE 






end of SRAMrdS code 
























i AOidi 


-- aoved to and eiecated 


at SRAMrd4(slot static RAHi 














A0rd6B 






start of 3RAHrd4 code 




ADcdi 










A0fd6l 


■o»e b 


Q6L(a2),dO 


read 2S4 bytes of data and one byte o 






bpi.s 


ADrdil 








■oveb 


dfl,(an + 


Bove bytes into BliFADRS 






dbf 


di.AOrdil 


















; READ 


epilogue 
















ADrd42 


aove.b 


QiL(a2).dO 








bpi.s 


ADrddl 


jap if byte has not been asabld 






cir .w 


d7 


pre-set d7 =0 to indicate no error 






cap . b 


t$DE,dO 








beq.s 


ADrd«» 


jap If ok 






io?eq 


•RRMF,d7 


else aore error code to d7 














ADrdi? 


tst.w 


d7 


set return condition code 






rts 




return 




ADrdiE 






end of SRAKrd4 code 
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1C6E 






1C6E 


48A7 


OiOO 


IC72 


3C3C 


OOOA 


IC76 


4E71 




1C7J 


4E71 




iC7H 


4E71 




IC7C 


4E7i 




i:7E 


4E71 




1C8C 


4E71 




1C82 


SiCE 


rFr2 


IC84 


51CF 


FFEA 


ICBA 


4C9F 


OOiC 


IC8E 


4E75 




1C90 







7» 
8« 

?« 

Qt 
1« 

2« 

3* 
4« 
5* 
t* 

7« 
8t 

9« 

0* 

l« 
02» 
03» 
04» 
05» 
06* 
07« , 
08* 



ADwiitB — loved to and eiecuted at SRAMwt<slot static RAH) 
delay of units specified in 07 
Each nnit is 100 aicio-seconds 



dlylCOi equ 



010 



AOwaitB 

■ovea w d5/di,-(sp) 
AOwaiti love w idlTlOOn.di 
ADwiit2 nop 

nop 

nop 

nop 

nop 

nop 

dbf di.ADwaitZ 

dbt d7,ADwaitl 

•ofeB.vf (sp)*,dS/d6 



start of SRAMwt code 

save registers 

each count of d6 = 1100/112 = 10 aicro second 

delay 100 nicto-seconds 



restore registers 

return 

end of SRAHwt code 
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4410* , 

4411* ; ADfsec -- cill ADrdid until it finds the sector specified m D4 B or 

4412* ; it has no loie letties left. 

4413* i Calling routine tust disable all the interrupts before aaking call 

4414* , 
00000064 4415* AOfsnrv equ 100 .nuiber of revolutions until record not found *KB S/Z3/82* 

44U* 
1C?0 48E7 0208 4417* ADfsec KOVEH.L D6/A4,-(sp) ,save register *K& 8/23/82* 
1C94 1C3B 0738 4418* aove.b CFfspt.w.di .coapote retry cooni 
1C98 4886 4419* eit.w d6 ,* 

1C9A CCFC 0064 4420* aula tADfsnrT,D6 ,* 

4421* 
1C9E 611C 4422* ADfsecl BSR.S ADrdad ,get this sectors adr aark 
ICAO 4A47 4423* tst w d7 .ERROR) 

1CA2 6608 4424* bne.s ADfsec! JES, RETRY 

4425* 

4426* , see if this is the correct track and sector nuaber 

4427* , *KB 8/23/82* reaoved track check 

1CA4 4247 4428* clr.w d7 ,CLR error code to indicate no error 

1CA6 B838 8E84 4429* CHP.B AHBUFiAMsec.V,D4, round sector' 
ICAA 6708 4430* BEQ.S A0fsec9 .successful ,so eiit 
ICAC StCE FFFO 4431* ADfsec2 DBF D6,A0fseci ,do untiKfound sector) or (no aore retries) 

4432* 

4433* , RETRIES FAILED 

4434* 
ICBO 3E3C FFED 4435* ADfsecB HOVE.V IRRNF.O? 

4436* 
1CB4 4CDF 1040 4437* A0fsec9 MOVEH.L (sp)i,D6/A4 ,sare register *KB 8/23/82* 
1CB8 4A47 4438* tst.w d7 ,set return condition code 

ICBA 4E75 4439* RTS .return 

4440* 



file CC PROM TEXT 



Page 114 



00000400 
CSC 3E3C 0400 



iCCO UCF &O06 
iCC4 &00C OOAO 



iCC8 102A 0018 

ICCC 4AFA 

ICCE B03C OOOS 

1CD2 66EC 

!CD4 4242 

iCDi 

iC06 102A 0018 

ICDA iAFA 

ICOC B03C OOAA 

iCEO 66EC 

ICE2 49F8 0E82 

ICE& 

ICEi 102A 0018 

ICEA iAFA 

ICEC B03C UH 

iCFQ i&OC 



ADidad — read the addiess field of the Apple iioppf 

fotiat of the address field: 

♦- prologue -♦- »ol na»e -♦- track -♦- sector -+- cksua -t- epilogue -+ 



; OS AA H 



U YY 



n YY ; II YY 



IX YY 



DE AA EB 



The data bfte is split into 4 bf 4 forsat, aiid then is written to disk. 
A data bfte d7 di d5 d4 d3 dZ di dO is split as follows: 



ADrcAd equ 


$400 


ACrdad ftove.w 


tAOrcAd.d? 


ADrdadl dbf 


d7,A0rdad2 


bra 


ADrdadS 


, FIND PROLOGUE 





dsk bytel: Id? 1 dS 1 d3 1 dl 
dsk byte2: i ii 1 d4 1 d2 1 dO 



Shifting the first byte left b; 1 and AND. with neit byte, 
the original data byte can be reconstructed. 



Calling routine nust disable interrupts and save the registers D0-D2/A4. 
*KB S/23/82» 



iread address retry count 
,set retry count 



,if no Bore retries 
(then report error 



;check for OS HEX 
;wait until data ready 
iis a part of prologue 
^no, try again 
;clear chksuB 



, check for AA hei 

;wait until data ready 

iis a part of prologue 

ino 

.delay and get adr aark bof addr 



icheck for 96 hei 
;wait until data ready 
iis a part of prologue 



ADrdadZ love.b Q6L<a2),dO 

bpl.s AOrdadZ 

ADrdad3 ctp.b l$OS.dO 

bae.s ADrdadl 

clr.w d2 



A0rdad3a 



■ove.b Q6L(a2>,dO 

bpl.s ADtdad3a 

cap.b i$AA.dO 

bne.s A0rdad3 

lea AMBUF.V,a4 



A0rdad3b 



■ove.b Q6L(aZ).dO 

bpl.s ADtdad3b 

CBp.b liH,dO 

bne.s ADtdad3 



prologue has been found. Kow read the vol header 
read 4 bytes: t vol na»e I track i sector 1 chksus I 
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icr2 


3E3C 


0003 


4494* 
44V7« 




•OTe.w 


14-1, d? 


,nuBber of bytes is 4 I 


30N'T Tl 








44980 




, REPEAT CODE 4 TIMES 


INSTEAD OF LOOP 










4499* 












icr« 






4500* 


AO 


dad4A 




,VOL NAKE 




ICFi 


102A 


0018 


4501* 




■o»e.b 


Q&L(a2),dO 


,cead first nibble 




ICFA 


4AFA 




4502* 




bpl.s 


A0rdad4A 


.wait antil data ready 




ICFC 


E318 




4503* 




lol.b 


• l,dO 


.rotate left by l 




ICFE 






4504* 


AO 


dad5A 








ICFE 


122A 


0018 


4505* 




love.b 


Q&L(a2),dl 


.read second nibble 




ID02 


6AFA 




4504* 




bpl.s 


AOrdadSA 


,iu«p if byte has not been 


asabld 


1D04 


C200 




4507* 




and.b 


dO.dl 


.and the two to get actual 


byte 


IDOi 


18C1 




4508* 




■ove.b 


dl,(a4)+ 


.store It in AHBUF 




1D08 


B302 




4509* 
4510* 




eor.b 


dl,d2 


.create chksus 




IDOU 






4511* 


AD 


dad4B 




, TRACK NUMBER 




IDOJl 


102A 


0018 


4512* 




•ove.b 


Q6L(a2>,dO 


.read first nibble 




IDOE 


UFA 




4513* 




bpl.s 


ADrdad4B 


.wait until data ready 




IDlfl 


E318 




4514* 




rol.b 


il.dO 


.rotate left by 1 




iDiZ 






4515* 


AD 


dad5B 








1012 


122A 


0018 


4516* 




love.b 


Q6L(a2),dl 


.read second nibble 




IDli 


iAFA 




4517* 




bpl.s 


ADrdadSB 


,ju«p if byte has not been 


asBbld 


1D18 


C200 




4518* 




and.b 


dO.di 


.and the two to get actual 


byte 


IDIA 


18C1 




4519* 




Bove.b 


dl,{a4)+ 


.store it in AMBUF 




IDiC 


B3D2 




4520* 
4521* 




eoi b 


dl,d2 


•create chksua 




IDIE 






4522* 


AD 


tdid4C 




.SECTOR NUMBER 




IDIE 


102A 


0018 


4523* 




Bove.b 


QiL(a2>,dO 


.read first nibble 




1022 


aFA 




4524* 




bpl.s 


ADrdad4C 


.wait until data ready 




1024 


E31& 




4525* 




rol.b 


11, dO 


.rotate left by i 




lD2i 






4526* 


AOrdidSC 








iD2i 


122A 


0018 


4527* 




Bove.b 


Q4L{a2),dl 


<read second nibble 




ID2A 


iAFA 




4528* 




bpl.s 


ADrdadSC 


.iuBp if byte has not been 


asabld 


1D2C 


C200 




4529« 




and.b 


dO.dl 


;and the two to gel actual 


byte 


1D2E 


18C1 




4530* 




■ove.b 


dl,(a4)^ 


;store it in AMBUF 




i03fl 


B3D2 




4531* 
4532* 




eor.b 


dl,d2 


.create chksu* 




1D32 






4533* 


ADidad4D 




.CHECKSUM 




1D32 


lOZA 


0018 


4534* 




Bove.b 


QiL(a2},dD 


iread first nibble 




lD3i 


iAFA 




4535* 




bpl.s 


ADrdad40 


.wait until data ready 




1038 


E318 




4536* 




rol.b 


11, dO 


irotate left by i 




1D3A 






4537* 


AOcdadSD 








103A 


122A 


0018 


4538* 




■ove.b 


Q6L(a2),dl 


iread second nibble 




1D3E 


iAFA 




4539* 




bpl.s 


AOrdadSO 


,}UBp if byte has not been 


asabld 


1O40 


C200 




4540* 




and.b 


dO.dl 


,and the two to get actual 


byte 


1042 


18C1 




4541* 




■ove.b 


dl,(a4)+ 


istore it in AMBUF 




1044 


B3D2 




4542* 
4543* 




eor.b 


dl,d2 


;create chksua 




1D4< 


4A02 




4544* 




tst.b 


d2 


;eoBpare chksua to C 




1048 


UK 




4545* 
454<« 




bne.s 


AOrdadS 


;return if chksua not = 










4547* 




, VERIFY EPILOGUE (DE 


AA EB) 










4548* 




; 








1D4A 


102A 


0018 


4549* 


ADrdad6 lOTe.b 


Q6L(a2).dO 


.get data byte 
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iD4E 


ihn 










bpi s 


AOrdadi 


,ia»p it byte has not been asabid 


1D50 


B03C 


OODE 








ctp.b 


t$DE,dO 


i 


IDS 4 


«610 










bne.s 


ADtdidS 


;retarn it error 


lOSi 


4247 










cli.w 


d7 


;set d7 =0 to indicate no error 


!0S8 


1 02 A 


0018 




ADrdid? 


iOfe.b 


Qa(a2>,d0 


.get data byte 


1D5C 


iAFA 










bpl.s 


ADrdid? 


,}aap if byte has not been asabld 


1D5E 


B03C 


OOAA 








op.b 


t$AA,dO 


; 


mi 


an 










bne.s 


ADrdadI 


;return error code if error 


mi 


4E75 










rts 






\DU 


3E3C 


FFED 




ADtdi 


d8 


Bove.w 


IRRNF.,d7 


;error code to d7 


i06A 


4E75 










rts 




iretora 
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1D6C 4BE7 F208 

1070 3C3C 0100 

1D74 4247 

1D7A 40E7 

1078 007C 0700 

1D7C 6100 FF3E 

1080 460F 

1082 4A47 

1084 ilU 



lOSi SICE FFEE 
1D8A 6020 



1D8C 49F8 0E62 

1O90 4240 

1092 1038 0Ee3 

1D96 E348 

1098 1940 0003 

109C B638 0E83 

IDAO 670A 

10A2 6004 

iOA4 6132 

10A6 60C8 

10A8 612A 

lOAA 60C4 

lOAC 4CDF 104F 

lOBO 4A47 

1DB2 4E7S 



4S6S' 
4S66 
4567' 
4S68' 
4S69' 
4S70< 
4571 
4572 
4573 
4574 
4575' 
4576 
4577 
4578 
4579 
4580 
4581 
4582 
4583 
4584< 
4S85< 
4586 
4587 
4588 
4589 
4590 
4591 
4592 
4593' 
4594 
4595 
4596 
4597 
4598< 
4599 
4600 
4601 
4602' 
4603 
4604> 
4605 
4606 
4607 
4608< 
4609 
46101 
4611 
4612 



ADseek — seek i given trick 

Enter: D3.V - desired track naiber 



AOrcSk 
ADseek 
ADskl 

ADsk2 



equ $100 .retry count 

■ovei.I dO-d3/d6/i4,-Up) 

KOVE.V tA0rcSk,D6 .retry count 
dr.w d7 



aove.w sr,-(s|>) 

ori.w l$0700.sr 

BSR AOcdad 

■ove.w (sp)>,sr 

tst.w d7 

beq.s ADsk3 

bsr.s AOrst 

OBF D6.ADsk2 

bras A0sk9 



.disable interrupts 

,aet track nuaber where head is 

.restore the interrupt 

.ERROR? 

.If no error then junp 

;go to track 

,do untiKfound sector 

, tried enough 



; Sec if head is positioned on desired track 

, issue STEPIN or STEPOUT to get to the correct track 

A0sk3 lea. I APL5VAR.V.a4 

cir.w dO .forn the current half 

•ove.b AHBUFfAHtrk V.dO .track and save 

isl.vi 11, dO .half track into dO 

Bove.b d0,csrtrk<a4} .half track number to 

CHP.b AHBUF«ANtrk.V,d3 

beq.s ADsk9 ,eiit it equal, found track 

bit.s A0sk4 .}UBp if track is \ current track 



bsr s ADccSin 
bras ADskl 



bsr.s ADccSout 
bras AOskl 



.step m 

.see if another track 



istep out 

,see if another track 



Bovea.i (sp)>,d0-d3/d6/a4 

tst.w d7 iset condition codes 

rts 
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ICB4 48E7 9008 

IDB8 19F8 OEU 

IDBC I97C 0044 

» 1DC2 4243 

;0C4 4248 

iDCi 6i34 

iDC8 422C 0003 

IDCC 4CDF 100? 

lOOO 4247 

10D2 4E75 



1DD4 

iDD4 4287 

1DD6 i002 

:DD8 7E01 

lODA 48E7 1008 

IDOE 4243 

IDEO 49r8 CE42 

10E4 162C 0003 

lDc8 4A87 

IDEA 6704 

lOEC S433 

IDEE &002 

IDFO 5503 

IDr2 6108 

10r4 4CDF 1008 

1DF8 4247 

IDFA 4E75 



IDFC 1E2A 0000 

lEOO 1E2A 0004 

1E04 1E2A 0008 

lEOt iE2A OOOC 

lEOC 6102 

lEOE 4E75 



ADfst -- restore (loppy to tcick 



aovei.l d0/d3/i4,-(sp) 

lea. I APLSVAR.V,a4 

BOfe.B 12*35, cuitri:(a4) 

cir w d3 

cir.w dO 

bsr.s ADseekl 

clr.b coTtrk(a4) 

•ovea.l (sp)t,dO/d3/a4 

clrw D7 
rts 



, AOccSoQt - step out 
, AOccSin -- step in 



CLR.L D7 

BRAS ADStoi 

ADccSin HQVEQ tl,D7 

ADSiol lovea.l d3/a4,-(sp) 

cit.w d3 

leal APLSVAR V,a4 

aote.b carttk(a4),d3 

T5T L D7 

BEQ.S ADSio2 

addq.b 11*2, d3 

BRAS ADSio3 

A0Sio2 SUBQ.B 11*2, d3 

ADSio3 bsi.s ADseekl 

■OTei.l (sp)t,d3/a4 

cIr w D7 

Its 



force no error return 
return 



,D0 STEP OUT 



.DO STEP IN 



.should step in 

,no, step out 

.point to neit track IN 

;point to neit track OUT 



.force no error return 
.return 



ADseekl -- seek the track desired b; the caller 

Enter: 03. V - desired track nuaber 

ADseekl lore.b PHASE0OFF(a2),d7 ,Turn all 4 phases off 

BOfe.b PHASE10FF(a2),d7 

■ofe.b PKASE20FF(a2),d7 

Bove.b PHASE30FF(a2).d7 

bsr.s ADccSk 
rts .return 
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lElO 48B7 

1E14 4245 

lEU 424& 

1E18 4247 

iElft 4?F8 

lElE UK 0003 

1E22 6764 



OEiZ 



IE24 422C 0000 

iE28 40E7 

1E2A 0O7C 0700 

1E2E 196C 0003 

iE34 B62C 0003 

1E38 673E 

iE3A 600E 

1E3C 1E03 

iE3E 9E2C 0003 

1E42 5307 

iE44 522C 0003 

iE48 600C 

1E4A 1E2G 0003 

!E4E ?E03 

tE5Q 5307 

iES2 S32C 0003 

iES6 BE2C 0000 

im 6D04 

iESC 1E2C 0000 

iE60 BE3C 0008 

iE64 6C02 

1E66 1007 

iE68 1A2C 0003 

1E6C iC2C 0001 



664* 
665* 
666* 
667* 
668« 
669* 
670* 
671* 
672* 
673* 
674* 
675* 
676* 
677* 
678* 
679* 
680* 
681* 
682* 
683* 
684* 
685* 
686* 
687* 
688* 
689* 
690* 
69i« 
692* 
693* 
694* 
695* 
696* 
697* 
698* 
699* 
700* 

4701* 
702* 

4703* 
704* 
705* 
706* 
707* 
708S 
709* 
710* 
7118 
712* 
713* 
714* 
715* 
716* 
717* 



AOccSk -- seek the tr^ck desired b^ the caller 



Enter: D3.V - desired track nuiber 

CURTRK location holds the current track nuaber. 



Eiit. The final track 
The cortrk-l 



-) curtrk 
-> PRIOR 



APPLE DOS NAHE COKVENTION 

(TRKN) = Desired track nuaber 

(CURTRK) = The current track naaber where floppy heads are positioned 

(PRIOR) = The (CURTR!()-1 

(TRKCNT) = The number of track the floppy has been aoved so far 



ADccSk aoTeu.l dO/dS-d6/a4,-(sp) 

clrw d5 

clr.w d6 

clrw d7 

lea APL5VAR.W,a4 

cap.b curttk(a4) ,d3 

faeq.s ADcc5k9 

cir.b trkcnt(a4) 

aoie.w si,--(sp) 

orr.w 150700, sr 

ADccSkl Kove.b curtrk(a4) ,priof (a4) 

c»p.b curtrk(a4) ,d3 

beq.s ADccSkS 

blt.s ADccSk2 

ao?e.b d3,d7 

sab.b curttk(a4) ,d7 

subq.b II, d7 

addq.b tl , cur tik(a4) 

bra s ADccSk3 

ADccSk2 ao7e.!) curt[k(a4) ,d7 

sab.b d3,d? 

subq.b II, d7 

subq.b tl,curtik(a4) 

ADccSkS cap.b t rkcnt (a4) , d7 

bits ADccSk4 

ao»e.b trkcnt(a4),d7 

ADccSk4 csp.b 108, d7 

b^e.s ADccSk5 

BOfe.b d7,dQ 

ADccSkS sove.b CQrtrk(a4) ,dS 

Bove.b prioi(a4},d6 



save registers 

clear bit S to 15 

clear bit 8 to 15 

clear bit 8 to 15 

IS desired trk = current track 
exit if equal 

init track count 
save interrupt level 
disable interrupts 

curtrk to prior 

jonp if current trk = desired trk 
]uap if desired trk( CURTRK 

, Seek IN 

, trkn - curtrk --) d7 

, trkn - curtrk -1 to d7 



, curtrk is ) desired track 

. Seek OUT 

, trkn - curtrk -i to d7 



.calculate indei to the delay table 
(jump if d7 is less than trkcni 



, destination cap source 

, leave dO alone if d? >= 08 

,to use as indes into turn ON delay OFFdeiiy 

, do STEP 
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1E7B 


4ilC 






1E7I 


S22C 


0000 




1E74 


(,m 






lE7i 


IC2C 


0003 




IE7C 


ilH 






1E7E 


4oDF 






1E80 


3E3C 


ClOO 




IE84 


6100 


FDE8 




IE88 


4CDF 


lOil 




1E6C 


4E75 







BSR.S ADceStp 

addq.b 11, t[kcnt(a4) 

bta.s AOccSkl 

ADccSkS loveb curtck(44>,d6 

bst.s ADclcFh 

kore.w (sp)f,sr 

■OTC w t$100,d7 

BSR AOwaitB 

}sr SRAHwKAS) 

AOccSkf Bovei.l (sp)f ,dO/dS-di/a4 
rts 



seek neit ttack 



clear the phase tamed on the last tiae 
restore interrupt level 



wait 
ADwaitB 



.restore registers 
, return 
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4732* 








4733* 








4734* 








4735* 








4736* 








4737* 








4738* 








4739* 








4740* 








4741* 








4742* 








4743* 








4744* 








4745* 








4744* 








4747* 








4748* 








4749* 








4750* 


1E8E 




0802 


4751* 


1E92 






4752* 


IE?4 






4753* 


1E94 




0036t 


4754* 


1E9A 




0000 


4755* 


iE9E 




FDCE 


4756* 
4757* 


IEA2 






4758* 


1EA4 






4759* 


IZki 




0030 + 


4760* 


IZkk 




0000 


4761* 


IZkl 




FDBE 


4762* 
47<3« 


1EB2 




4010 


4764* 


IEB6 






4765* 
4766* 


1EB8 




0003 


4767* 


lEBC 






4768* 


lEBE 




S0I12 


4769* 


iEC2 






4770* 
4771* 


1EC4 




0003 


4772* 


IEC8 






4773* 


lECA 




iOOO 


4774* 


lECE 






4775* 
4776* 


lEDO 


00 2F 


27 23 


4777* 


1ED4 


IF ID 


IC IB 


4778* 
4779* 


lEDS 


6F 2B 


2S 21 


4780* 


lEDC 


IE ID 


IC IB 


4781* 
4782* 



ADccStp -- Bo?e the floppy in oi oot by one phase i.e Half ttacic 

Enter: the ttick nam to use Ut setting i phase > dS 

the track not to ose (or clearing d phase ) d6 

the indei for ADtblON and ADtblOF to fetch a dealy count --/ dO 

Kote. THE BIT 8 TO IS OF 00,05.06 MUST BE ZERO. 

Exit. SETS one phase and clears a phase 

TO MOVE FLOPPY HALF TRACK INVARD. 
set phase i 
clear phase i-1 

TO HOVE FLOPPY HALF TRACK OUTWARD: 
set phase i-1 
clear phase i 



ADccStp BOveB.l d4/a6,-(sp) 

bsr.s ADsetPh 

clr.w d7 

lea ADtblON, a6 

Bove.b 0(a6,d0),d7 

BSR ADwaitB 

;, isr 3RAHwt(A3} 

bsr.s ADcIrPh 

cit.w d7 

lea ADtblOF, a6 

Bore.b 0(a6,d0),d7 

BSR ADwaitB 

jsr SRAMwt<A3) 

BOfei.l (sp)i,d4/a6 
rts 

ADsetPh andi.b 103, dS 

Isl.b 12, dS 

•ove.b phaseon(a2,dS),d7 
rts 

ADcIrPh andi.b 103, d6 

Isl.b «2,d6 

■ove.b phaseoff(a2,d6),d7 
rts 



, turn on phase 

;clear bit 8 to IS of 07 



ADwaitB 

turn off phase 

clear bit 8 to IS of 07 



i GENERATE APPLE ADRS 



; GENERATE APPLE ADRS 



ADtblON DATA. B 1-1. $30-1, $28-1 ,$24-1 , 

DATA.B $20-l.$lE-l,$lD-l,$lC-l .even nnaber of bytes 



ADtblOF data.b $70-1, $2C-1, $26-1, $22-1 ; 

DATA.B $1F-1,$1E-1.$1D-1,$1C-1 ieven nuaber of bytes 
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setup 



ABOOT 


flllBHt 


ADRD62 


OHCSAi 


AMTRK 


OQOOQOOl 


CPIVEC6 


ODQ10084 


CSTEF 


00000020 


ABOOTl 


0U836f 


ADRD69 


011C6A 


AMVOL 


00000000 


CPIVEC7 


00010088 


CSTEPIN 


00000040 


ABO0T9{! 


011854+ 


A0RD6B 


011C4E^ 


APL5VAR 


0OOOOE62 


CPKBGETC 


00010054 


CSTEPOUT 


00000060 


ADDON 


00000002 


ADR06E 


011C6E 


BADDEST 


00000086 


CPKBINIT 00010059 


CSUMRD 


00000004 


ADEIOl 


01186C+ 


ADRDAD 


OllCBC 


h BADSOCK 


00000084 


CPLBLKIO 


00010026 


CURSON 


00000002 


ADBI09 


011874+ 


ADRDADl 


OllCCO 


h BASERAH 


00000900 


CPLBOOT 


00010022 


CURTRK 


00000003 


ADBLKIO 


011856+ 


ADRDAD2 


011CC8 


BLKSZ 


00000200 


CPLBOOTJ 


00G1Q020 


CWRSEC 


OOOOOOAO 


ADCCRD 


011B7E+ 


ADRDAD3 


OllCCE 


BPS5ISD 


OOOOOIOO 


CPLDSKIO 


00Q1OO2A 


CWRTRK 


OOOOOOFO 


ADCCRDl 


0ilB86+ 


ADRDAD3A 


011CD6 


BPS8IDD 


OOOOOIOO 


CP08LKI0 


00010016 


DCBLKHI 


00000003 


ADCCRD2 


0nB8E + 


ADRDAD3B 


0iiCE6 


h BPS8ISD 


00000080 


CPOBOOT 


00010012 


DCBLKLO 


00000002 


ADCCRD3 


011B94+ 


ADRDAD4A 


01iCF6 


CFHCINT 


OOOOOODO 


CPQBOOTJ 


00010010 


DCDSV 


00000001 


ADCCRD4 


OUBAOf 


ADRDAD4B 


OllDOA 


h CHEND 


0101BS+ 


CP0D5KI0 


OOOiOOlA 


DCLEN 


00000004 


ADCCRD5 


011BB2i 


ADRDA04C 


OUDIE 


CHENOl 


fliOlBCt 


CPQHNIBF 


eOQBDFDO 


DCMD 


00000000 


ADCCRD8 


011C12+ 


ADRDAD4D 


011D32 


CHERR 


010176+ 


CPOMNIRC 


000007QF 


DEBOP 


00000008 


ADCCRD9 


OIICU + 


ADRDAOSA 


OllCFE 


CHERRl 


01017A+ 


CPOMNRAH 00000880 


DEVADOFS 


00000020 


ADCCSIN 


011DD8+ 


ADRDADSB 


flllD12 


CMDACPT 


OOOOOOFE 


CPOSBLK 


00000709 


DLYIOQM 


OOOOOOOA 


ADCC3K 


OllElOf 


ADROADSC 


011D26 


CKSTSKT 


ooooooeo 


CPOSDRV 


00000708 


DNIBL 


0119AE+ 


ADCCSKl 


0UE2E + 


ADRDAD5D 


011D3A 


CFABLKIO 


00010042 


CPOSSLOT 


000007B6 


DNIBL2 


0il8AE+ 


ADCCSK2 


&llE4Af 


ADRDA06 


011D4A 


CPAINIT 


00Q1Q04A 


CF0S5RVR 00000707 


DNIBL3 


0118AC+ 


ADCCSK3 


flliE5i+ 


ADRDAD7 


011D58 


CPASCTIO 


00010046 


CPROKLVL 


OOOIOOOD 


DNIBL4 


01ieAD+ 


ADCCSK4 


011E60+ 


ACR0A08 


011D66 


CFBLKIO 


00000714 


CPROMVRS 


OOOIOOOC 


DRVOEN 


00000014 


ADCCSK5 


011E68+ 


ADRDWR 


811B10 


CPBTSLOT 


OQ000700 


CPSCNOFS 


00000764 


DRV 1 EN 


00000016 


ADCCSK8 


0ll£78t 


ADRDWRl 


OilB30 


CPBTSRVR 


00000701 


CPSLIRAH 00000900 


DSADDR 


OIOCCC+ 


ADCC5K9 


011E88+ 


ADRDVR9 


011B3E 


h CPCKSUM 


OOOIOOOE 


CPSLITYP 


0Q0OO771 


DSADDRH 


010CD8+ 


ADCCSOUT 


OilDD4+ 


ADRST 


fllIDB4 


h CPDISXRC 


9000070E 


CP5L2RAH OCOQOAOO 


DSADDRV 


flIOCFO+ 


ADCCSTP 


011E8E+ 


ADSCIOl 


011888 


h CPDSCVUC 


0001006C 


CPSL2TyP 


00000772 


DSCBLKX 


00080028 


ADCLRPH 


QllEC4t 


ADSCI09 


Q1189E 


^ CPDSINIT 00010060 


CFSL3RAH OOOOOBOO 


DSCCR 


0000006D 


ADFSEC 


011C90+ 


ADSECIO 


flU87E 


^ CFDSKIO 




CPSL3TYP 


00000773 


DSCDIFF 


00000028 


ADFSECI 


G11C9E+ 


ADSECR 


OUBSO 


h CPDSFFLG 




CPSL4RAM OOOOOCOO 


DSCELLV 


00000006 


ADFSEC2 


OilCACt 


ADSECRl 


011B62 


h CPDSPUTC 




CPSL4TYP 00000774 


DSCELL? 


0000880A 


ADFSEC8 


OilCBO+ 


ADSECR2 


0UB72 


CPDSPUTS 




CPSL5TYP 


00000775 


DSCESC 


00880818 


ADFSEC9 


011CB4+ 


ADSECR9 


011B74 


CPEITCRT 




CPSTACK 


OOOOOFOO 


OSCLAL 


ei8BE8+ 


ADFSNRV 


00000064 


AOSEEK 


011O6C 


h CPFBLKIO 




CPS?SRST 


00010004 


DSCLCA 


08008861 


ADI5SSSD 


011AAE+ 


ADSEEXl 


OUDFC 


CPFBOOT 




CPSYSST 


QOOOSFOi 


OSCLCZ 


0000007A 


ADILVT3 


fllUE4+ 


ADSETFH 


011EB8 


CPFBOOTJ 




CPTPRNBR 


SflSa07flD 


D5CLEL 


010C1E+ 


ADINIT 


011AF4+ 


ADSIOl 


OllDOA 


^ CPFBPS 




CPUNIQIO 


00010008 


D5CLEL1 


010C34+ 


ADINLV 


011B40+ 


ADSI02 


OllDFO 


CPFDVSZ 




CFUSERID 


00000720 


DSCLEL2 


810C3A+ 


ADINLV9 


flllB4C+ 


ADSI03 


611DF2 


^ CPFINIT 




CPUSERNM 


00000726 


DSCLES 


OiOBE44 


ADMTROF 


011B04+ 


ADSKl 


011D70 


h CPFINLV 




CPWNDRCD 


00000740 


DSCLESt 


018BF2+ 


ADMTRON 


01160A+ 


A0SK2 


011D76 


h CPFOFST 




CROAK 


ooooooeo 


DSCLES2 


010C864 


AORCAD 


00000400 


ADSK3 


OliOSC 


► CPFSCTIO 




CRDSEC 


00000080 


DSCLES3 


810C8A+ 


ADRCRD 


Q0Q004O0 


A0SK4 


flllDAS 


h CPFSPD 




CRDTHK 


OOOOOOEO 


DSCLES9 


010C1C+ 


ADRCSC 


00007FFF 


ADSK9 


OUDAC 


y CPFSPT 




CHESTORE 


00000000 


QSCLEH 


SIOCSC^ 


ADRCSX 


OOOOOiOO 


ADTBLOF 


011ED8 


h CPFTPS 




CSATT81 


00000010 


DSCLRKl 


8iOC72+ 


ADRD4 


811C1E+ 


ADTBLON 


QllEDO^ 


CPFT?P 




CSATTR2 


00060011 


DSCLRHI 


0i8Ce4^ 


ADRD4B 


011C1E+ 


ADWAITl 


0nC72 


^ CPIOBUF 




CS8PCH 


00000086 


DSCLRH3 


010C8C+ 


ADRD4E 


flllC32+ 


ADVAIT2 


0iiC76 


y CP I STACK 




CSDATA 


ooGOOon 


DSCLRK4 


018C?8+ 


ADRDS 


011C32+ 


ADWAITB 


011C6E 


CPIVECl 




CSEEK 


00800010 


DSCLRHS 


fll6C?6+ 


ADRDSi 


011C32+ 


ADVAITE 


QnC90 


h CFIVEC2 




CSFRSTCH 00000008 


DSCLRHi 


eiOC9C+ 


ADRD5E 


011C4E+ 


AMBUF 


0S600E82 


CPIVEC3 




CSIASTCH OOOOOOOA 


DSCLRV 


C10C3E4 


ADRD6 


ailC4E+ 


AMCHKSK 


00090003 


CPIVECl 




CSLPCH 


00080004 


DSCLHVi 


9i0CS2+ 


ADRD61 


811C4E+ 


AMSEC 


00000002 


CPIVECS 




CSMASK 


80000Q0C 


DSCRSAD 


018BCC+ 
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DSCRSD 


010B46^ 


DSSH0V9 


fllOBlA* 


FDCSTPOT 


00000075 


FDSEEKl 


0116EE+ 


lOBOOTSW 


00030F61 


DSCRSH 


010B6C+ 


D5SHV71 


OlOADAf 


FDCSTRR 


OOOOOOIO 


F0SEEK8 


011706+ 


lOPBASE 


00030000 


DSCRSHl 


OlOBiE^ 


DSSHW72 


010AE4+ 


FDCTRKR 


00000012 


rD5EEK9 


011708+ 


ITOl 


01fl54A+ 


DSCRSL 


OlOBSEf 


DSSHV73 


010AEE+ 


FDEBLCK 


0117D8+ 


FD5I01 


01146E+ 


IT02 


010558+ 


DSCRSR 


010B1C+ 


DSSHV74 


010AF8+ 


FDEBUSY 


011802+ 


FD5I02 


011482+ 


IT99 


010562+ 


DSCRSU 


I110B32 + 


DS5HV75 


01flB02+ 


FDECRC 


0117D8+ 


FDSI09 


011486+ 


IVLVLl 


00000064 


D5CSETH 


010D4E+ 


DSSHW76 


010BOC+ 


FDEHERR 


0I17EA+ 


FDSK5T1 


0117BA+ 


IVLVL2 


00000068 


DSCSETV 


0IflD84f 


DS5HVCH 


01QA64+ 


FDENRDY 


01180E+ 


FDSK5TA 


0117B6+ 


IVLVL3 


0000006C 


DSCTBL 


010DO8+ 


DS5T0 


010AOE+ 


FOEOPCD 


0117E4+ 


FDSW5TA 


0117AA+ 


IVLVL4 


00000070 


DSCTL 


0i0A22t 


DS5TBL 


010026+ 


FDEPROT 


0117F0+ 


FDTMOHI 


00000004 


IVLVL5 


00000074 


DSCURS 


01069Ai 


DSTAB 


010CA6+ 


FDERNF 


0117FC+ 


FDTMOLO 


0Q007FFF 


IVIVL6 


00000078 


DSCURSO 


010B?Cf 


DSTABl 


010CC0+ 


FDERSTA 


0117D4+ 


FDVRDY 


Q116B0+ 


IVLVL7 


0000007C 


DSCURSl 


OlOBBAt 


DSVNDH 


fllOD2A+ 


FDESEEK 


0117F6+ 


FDVRDYl 


0116BE+ 


JUMPTO 


00004EF9 


DSCURS2 


OlOBBEt 


D5VNDV 


010D60+ 


FDEUNIT 


0117DE+ 


FDWRDY9 


0116D2+ 


KBBBUFR 


oooooooe 


D5CURS3 


fllOBCO* 


DSVRAP 


fll0B8C+ 


FDCETADR 


0115E0+ 


FHLD 


00000008 


KBBFLCS 


QOOOOOOO 


DSCVTUl 


010?C4+ 


DSVRAPX 


010B78+ 


FDI8S& 


0114CC+ 


FINTIDXP 


00000004 


KBBFRNT 


00000002 


DSCVTUC 


0iQ9B4+ 


DTA5 


OOOflOQDS 


FDI8SSDD 


fllHBOt 


FINTIMH 


00000008 


KBBLEN 


O0OO00F4 


DSDECZ 


010B60+ 


DTC5 


00000004 


FDI8SSSD 


011492+ 


FINTNRDY 


00000002 


XBBREAR 


00000006 


DSDECY 


010B7E+ 


Die 8 


00000003 


FDINCTl 


01166A+ 


FINTRDY 


00000001 


K6BSRSV 


OOOOOOOA 


DSDEFOF 


00000068 


DTLOCL 


00000001 


FDINCT2 


011690+ 


FLl 


01Q5B2+ 


KBCC600 


00000017 


DSESC 


fllOA3E+ 


DTNDEV 


30000000 


FDINCT5 


OiUAOt 


FL2 


0105B8+ 


KBCCBRK 


00000008 


DSE5C1 


aiaA44i 


DTOMNI 


00000002 


FDINCT9 


0116AC+ 


FL3 


0105C4+ 


KBCCGO 


00000009 


DSE5C2 


0i0A54+ 


ECHOED 


ooooooco 


FDINCTS 


011658+ 


FL4 


0105CE+ 


KBCCNTL 


DOOOOOFD 


DSETBL 


010D14* 


ECHOOP 


00000002 


FDINIT 


0114DA+ 


FL5 


0105DC+ 


KBCCOFF 


00000002 


DSEXIT 


010A08+ 


ENDOF 


00000010 


FDLCMD 


011500+ 


FLASH 


010596+ 


KBCLCA 


00000061 


DSHOHEH 


0008DSSE 


FBOOT 


01140E+ 


FDLCMDl 


011504+ 


FMPS 


OOOOOOIO 


KBCLCZ 


0000007A 


OSHOMEV 


00080506 


FBOOTl 


011430+ 


FDLY 


00000004 


F5DCHPEN 


00000002 


KBCLOCK 


OOOOOOFC 


DSINCI 


010B20t 


FB00T9Q 


01144A+ 


FDMTROF 


flll4EE+ 


FSDCPM 


oooooooe 


KBCNOCH 


OOOOOOFF 


DSINCY 


OiOB48+ 


F08LKI0 


01144C+ 


FDNRDY 


011768+ 


FSTPRTIO 


00000002 


KBCQHRK 


oooooo3r 


DSIMIT 


01096E+ 


FDCAD 


00000010 


FDNRDYl 


011774+ 


FSTPRT15 


00000003 


KBCQUAL 


0fl00007F 


D5INIT1 


010992+ 


FDCCMDR 


OOOOOOIO 


FDNRDY2 


011782+ 


FSTPRT3H 


00000000 


KBCSHFT 


OOOOOOFE 


0SIMIT2 


01099A+ 


FDCCRD 


011594+ 


FDOKSTA 


0117D2+ 


rSTPRT6H 


00000001 


KBDSINT 


00000700 


DSKREAD 


00000032 


FDCCRDl 


0115AC+ 


FDRCDOR 


00000004 


FUPDTTRK 


OOOOOOIO 


KBFCLOS 


00000002 


DSKVRIT 


00000033 


FDCCRD2 


0115B0+ 


FDRCRD 


00000004 


FVERIFY 


00000004 


KBFCNTL 


00000004 


DSMAXXH 


000002CF 


FDCCRD3 


Q11SB8+ 


FDRCSK 


00000004 


GAVEUP 


00000080 


KBFEMTY 


00000001 


DSK&I2V 


0000022D 


FDCCRD4 


0115C2+ 


FDRDSTA 


0117BC+ 


GDATA 


00000016 


KBFFULL 


00080000 


DSMAXYH 


Ofl80022F 


FDCCRD5 


0115CA+ 


FDRDWR 


011528+ 


COTOBT 


010496+ 


KBFLOCK 


00000005 


DSMMYV 


00flO02CF 


FDCCRD6 


0115D6+ 


FDRDWRl 


011542+ 


GOTOBTl 


010498+ 


KBFSHFT 


00000003 


DSNITST 


fll09FE+ 


FDCCRST 


011734+ 


FDRDVm9 


011554+ 


C0T0BT2 


0104A4+ 


KBGCHRl 




DSFBASE 


00080000 


FDCCSIN 


011744+ 


FDR5T 


011716+ 


G0TOBT3 


Q104B4+ 


KBGCHR2 




DSFEND 


0008EOOO 


FDCCSK 


011754+ 


FDR5T0 


01171E+ 


GRAPHIC 


00000001 


KBGCHR3 




DSFIEN 


OQOOEOOQ 


FDCCSKl 


01175C+ 


FDRSTl 


011722+ 


HDRERR 


00000083 


KBGETCH 




DSF5T1 


0109CA+ 


FDCC5K2 


011764+ 


FDRST2 


01172E+ 


IMCTEST 


010544+ 


KBGETKY 




DSFST9 


0109D2f 


FDCCSOT 


01174C+ 


FDRSTW 


01170C+ 


INITOP 


00000020 


KBINIT 




D5PUTCH 


0iO9D8+ 


FDCCSTP 


flll73C+ 


FDRWSTl 


01179C+ 


INTDCO 


010604+ 


KBINITl 




DSPUTST 


0i0?C6t 


FDCDATR 


00000016 


FDRWSTA 


011790+ 


IKIDCl 


01061E+ 


KBINTR 




DSRESET 


010A04* 


FDCLCT8 


011650+ 


FDSECIO 


011464+ 


IKTKYBD 


0105E8+ 


KBINTRl 




DSRTRN 


010836+ 


FDCLCT9 


011654+ 


FDSECR 


Q1155A+ 


INTIVL7 


0105E6+ 


KBINTR2 




DSRTRNl 


010B38+ 


FDCLCTS 


Q1160C+ 


FDSECRl 


011564+ 


INTOMNI 


010616+ 


KBINTR9 




OSSHOVl 


fllOA74+ 


FDCRST 


00000007 


FDSECR2 


011568+ 


INTSLOT 


010630+ 


KBMSK40 


QOOOOOIF 


DSSH0W2 


01QA78+ 


FDC5ECR 


00000014 


FDSECR3 


011584+ 


INTTIMR 


0105FA+ 


KBPROl 




DSSK0V3 


eiQAAA+ 


FDCSEEK 


00000015 


FDSECR9 


01158C+ 


INUSE 


00000085 


KBPR02 




DSSHOVi 


010AC0+ 


FDCSTP 


0000003S 


FDSECRV 


0U55A+ 


IMVCUH5 


00000003 


KBPR03 




DSSH0V7 


810ACA+ 


FDCSTPIN 


00000055 


FDSEEK 


0116DA+ 


lOBEEPFQ fl0030F71 


KBPR09 
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KBPROKY 


3188l8f 


LDSYNCl 


01108E+ 


NIRQ2 


00000005 


RAKKB6UF 


00000300 


SBSTROB 


011220+ 


KBPUTl 


010872+ 


LDSYNC2 


011098+ 


NIRQ3 


00000006 


RAMKBLEN 


00000100 


5BU5ER 


010456+ 


KBPirr2 


01087C+ 


LDSYNC3 


0110AA+ 


NIRQ4 


00000007 


RAMLEN 


00001000 


SBUSY 


OOOOOOOO 


KBPUTCH 


0108SE4 


LDSYNC5 


0110B6+ 


NNHIl 


OOOOOOOO 


RAMHXBUC 


00000400 


SBWl 


01122C+ 


KBQUAL 


010884+ 


LDSYNC6 


011GBA+ 


NNMI2 


00000001 


RAMSIZ9 


010S8C+ 


SBUAIT 


011228+ 


KBOUALi 


01088E+ 


LD5YNC9 


0110C4+ 


NNMI3 


00000002 


RAMSIZE 


010364+ 


SBWEXIT 


01123C+ 


KBQUAL2 


010898+ 


LDVAIT 


011016+ 


NNMI4 


00000003 


RAHTSTl 


0101C2+ 


SCIO 


01128C+ 


KBQUAL3 


0iQ8A0+ 


LDWAUl 


01101A+ 


NOBUFR 


00000092 


RAMTST2 


0101E4+ 


sen 


01I29C+ 


KBQUAL8 


0108AA+ 


LDVAIT2 


011024+ 


NOSCROLL 


00000005 


HAMVKSTA 




SC20 


Q112CC+ 


KBQUAL? 


01QSAC+ 


LDVIOl 


010FAE+ 


NOSOCKT 


00000082 


RBDBLK 




SC3fl 


D112F6+ 


KBRCMND 


0C030F05 


LNBUF2 


00000036 


NOTRANS 


0000C090 


RBDOFCO 




SC32 


flll2FC+ 


KBRCNTL 


00030Ffl7 


LONGCMDS 


011336+ 


OBOOT 


0110CC+ 


RBDUNT 




SC40 


Otl30A+ 


KBRDATA 


00030F01 


LS1SD2SD 


00000004 


OOBLKl 


01115C+ 


RBUSY 




SC5fl 


01131E+ 


KBRSTAT 


OO030F03 


ISSINMIN 


00000003 


00BLK2 


011170+ 


RDYADR 




SC60 


01132C+ 


XBRTABLE 


fll090E+ 


LSORQ 


OOOOOOOO 


OD6LK3 


011180+ 


RECVOP 




SC70 


01133A+ 


XB3TABLE 


fli08AE+ 


LSDSKCHG 


00000006 


OOBLKIO 


011130+ 


RERRUHOW FFFFFFCO 


SCERRl 


011344+ 


LBOOT 


G10EFA+ 


LSFMMFM 


00000007 


ODCMDl 


011114+ 


RESTSKT 




SCERR2 


01134A+ 


LBOOTIO 


aiCFfl2 + 


LSINT 


00000001 


0DCMD2 


011126+ 


RGOOD 




SCERR3 


01134E+ 


LBOOT30 


OiOF18+ 


LSTRR 


OOOOOOOO 


0DCMD9 


01112A+ 


RHDR 




5CEXIT 


011352+ 


LBOOT80 


0lflF30+ 


MARCH 


010318+ 


ODCOMND 


0110E6+ 


RHDSKLN 




5CHD2 


0113DC+ 


LBOOT?0 


G10F6E+ 


MEHCLR 


010214+ 


OODSKl 


0111A0+ 


RHDSKRC 




SCHD3 


0113EE+ 


LCBINHIN 


00000006 


MEKTE3T 


010204+ 


0DDSK2 


0111B6+ 


RHPKTLN 




SCHD4 


011400+ 


LCDEO 


OCQOOGOl 


MOTOROFF 


00000010 


00DSK3 


0111C4+ 


RHPKTRC 




SCPT5SD 


00000010 


LCDEl 


02000004 


MOTORON 


00000012 


0DDSK4 


0111E6+ 


RHSOR 




SCPT8DD 


OOOOOOIA 


LCFLP8IN 


OQOOOOOi 


MRl 


01051C+ 


0DDSK5 


0111EA+ 


RHWRERR 




SCPT8SD 


OOOOOOIA 


LCFLPSDl 


00000000 


MR2 


010526+ 


0DDSK6 


0inF0 + 


RL05TDEV 




SCRCERR 


00000003 


LCFKMFM 


00000007 


Mfl3 


010536+ 


0DDSK9 


llinF2 + 


RNQTRDY 




SORQ 


00000001 


LCHDl 


0ll3i2+ 


HRERR 


010342+ 


ODDSKIO 


011190+ 


ROMBASE 




SDTOVER 


00000002 


LCMD3 


011370+ 


MSGl 


01Q65A+ 


ODDV 


00000024 






SOTUNDR 


00000002 


LCMD4 


01138A+ 


MSCIO 


0106B2+ 


ODOVHI 


0000DO2S 


ROHLEN 




S£ LBOOT 


01Q3C0+ 


lcmd; 


011392+ 


HSGll 


0106D1+ 


OOOVLO 


00000026 


RQMTST 




SENDOP 


00000040 


LCMDi 


01139E+ 


MSGl 2 


0106D9+ 


ODVALID 


00000D2C 


ROHTSTl 




3ETG0 


01123E+ 


LCKD7 


0113AC+ 


MSGl 3 


0106OF+ 


ODVRAD 


00000026 


RPTSTl 




SETGOl 


011262+ 


LCKDERR 


01i3BE+ 


MSGl 9 


0106E6+ 


OFF 


OOOOOOOO 


RPTST2 




SETINTV 


010244+ 


LCKDEX 


0113C6+ 


MSG2 


010680+ 


ON 


00000001 


RFTST8 




SETMB 


010232+ 


LCMDOK 


flil3C2t 


MSG3 


010683+ 


PHASEOOF 


OOOOOOOO 


RPTST9 




SETRECV 


011232+ 


LCKDR 


00000000 


MSG30 


0106F2+ 


PHASEOON 00000002 


RPTSTAT 




SETUP 


0100B4+ 


LCMOTORO 


OOOOQCQS 


MSG31 


0106FF+ 


PHASEIOF 


00000004 


RRNF 


FFFFFFED 


SETUP I 


0100C2+ 


LDHLKIG 


010F8C+ 


HSC32 


010708+ 


PHASE ION 


00000006 


RSEEKERR FFFFFFBr 


SETUP 2 


0100C6+ 


LDDSKl 


01104E+ 


MSG4 


010695+ 


PHASE20F 


00000008 


RTl 


010406+ 


SETUPS 


0100CA+ 


LDDSKIA 


011054+ 


MSGCPY 


010090+ 


PHASE20N OOOOOOOA 


RTIERR 


0101CA+ 


SKOLDO 


00000003 


LDDSK2 


Oil05C+ 


MXBBASE 


00020000 


PHASE30F 




RT2ERR 


010iFA+ 


SHDR 


OOOOOOOE 


LDDSK3 


011664+ 


MX BEND 


00022000 


FHASE30N 




RVRPROT 


FFFFFFFO 


SHFMLN 


00000014 


LDDSX9 


01107A+ 


HXBENTRY 


00020008 


PHASEOFF 




SBBOOT 


010446+ 


SHORTCMD 


0U3CA+ 


LDDSKIO 


011036+ 


MXBINIT 


00020004 


PHASEON 




SBOEBUC 


0103DC+ 


SHPKTRC 


OOOOOOOE 


LDCETBB 


01QF70+ 


HXBLEN 


00002000 


PRIOR 




SBERR 


011214+ 


SHTOLN 


00000012 


LDCETBX 


010F8A+ 


NBLK5SD 


00000118 


PSOHLEVL 




SBEZIT 


011218+ 


SINOEX 


00000001 


LDRIOl 


010FC6+ 


NBLK8DD 


000003E9 


FROHVERS 




SBFLPY 


010414+ 


SLOTIAD 


00030001 


LDRI03 


010FCC+ 


NBLK8SD 


OOQ001F4 


Q6H 




SBFLPYl 


010422+ 


SLOTADR 


010646+ 


LDRTRN 


010FE2+ 


NBUFl 


OOOOOOOO 


Q6L 




SBFLPY2 


01043C+ 


SLOTIO 


010276+ 


LDSEND 


010FEC+ 


NBUF2 


00000E02 


Q7H 




SBFLFY3 


010442+ 


SLOTIDl 


010266+ 


LDSENDD 


010FFA+ 


HDEVIAD 


00030001 


Q7L 




SBLOCAL 


010406+ 


SLDTID2 


D102D4+ 


LDSENDl 


011OO0+ 


NIBL 


0118AE+ 


RAHBASE 




SBMSG 


010446+ 


SL0TID3 


0102EA+ 


LDSYNC 


011082+ 


NIRQl 


00000004 


RAHEND 




SBOHNI 


0103FC+ 


SL0TID6 


010302+ 
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SL0TID9 


0103aCf 


SRAHRDi 


00000080 


TCDTALN 


00000020 


U5RBA5E 


0008E000 


WRBITOFS 


OOOOOOIA 


SLOTIOA 


010340^ 


SRAMWT 


OOOOOOCO 


TCHDRLN 


00000022 


VERT 


00000000 


VRCHARPT 


00000000 


SLOTIDB 


01035A+ 


SHECnP 


OOOOOOOS 


TCMD 


00000018 


VIABASE 


00030FOO 


WRCURADR 


00000008 


SLOTPTR 


00030100 


SRNr 


00000004 


TCOP 


00000018 


WAITING 


OOOOOOFF 


WRCUR5X 


QOOOOOU 


SLTADOFS 


00000200 


SSEEXERR 


00000004 


TCRADHI 


00000019 


WALKBIT 


0l04Ei+ 


WRCUR5Y 


00000018 


SLTSTAD 


OOflSOAOl 


STRADR 


00fl30FAl 


TCRADLO 


OOOOOOIA 


VBl 


Q104F0t 


WRGRORCX 


OOOOOOIC 


SNDCMD5 


0112D8+ 


STRKO 


00000002 


TCSOCK 


OOOOOOIC 


WB2 


Q104F4+ 


WRGRORGY 


OOOOOOIE 


SNORE ST 


0112AEf 


STROBIT 


OUlFAt 


TIMEOUT 


00000091 


VB3 


010502+ 


WRHOMEOF 


QOOOOOflC 


5N0TRDY 


00000007 


sun 


0102524 


TRPS5SD 


00000023 


VBERR 


OlOSlit 


WRHOHEPT 


OQC00004 


SRAHLK4 


OQOQOOH 


SVLCHD 


00000000 


TKFS8DD 


0O00C04D 


VHOOP 


OOQOOOOl 


VRLENCTH 


00000024 


SRAHLNS 


OOOOOOIC 


SVRFAULT OOOOOOOS 


TKPS8SD 


0000004D 


WRAPON 


00000004 


VRLNGTHX 


oooooon 


SRAKLNi 


00000020 


SVRFROT 


00000006 


TOINTVL 


OOOOFFFE 


VRATTRl 


0000002Q 


WRLNGTHY 


00000014 


SRAHLNV 


00000022 


TCDADHI 


OOOOOOID 


TOOLONC 


00000081 


WRATTR2 


00000021 


URRCDLEN 


00000023 


SRAKRD4 


00000000 


TCDADLO 


OOOOOOIE 


TRKCNT 


00000000 


VRBASEX 


GOQOOOOE 


WRSTATE 


00000022 


SRAHRD5 


00000040 


TCDEST 


00000023 


TRKN 


00000002 


WRBASEY 


OOOOOOiO 


ZERORAM 


01058E. 
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ABOOT i\ 


3724* 








kBOCTl 373 


* 








A8OOT90 373 


3745 


3747 


3751* 




ADCOH 396^ 


« 3971 


3974 


3977 


3980 3983 


AOBIOl 37S 


3789« 








ADBI09 378 


3792* 








AOBLKIO 23 


3727 


3744 


3746 


3781* 


ADCCRD <19 


4228« 








ADCCROl 423 


• 4244 








ADCCRD2 423 


4240* 


4241 






ADCCRD3 424 


]* 4253 


4261 






ADCCR04 425 


« 4251 








ADCCRD5 425 


» 4259 








ADCCRD8 423 


4327* 








ADCCRD9 42( 


4325 


4329* 






ADCCSIN 347 


4604 


4635* 






ADCCSR 466 


4680« 








ADCC3K1 469 


* 4720 








ADCCSK2 469 


4703« 








ADCCSX3 470 


4708* 








ADCCSK4 470 


4712* 








ADCCSK5 471 


4716* 








ADCCSK8 ^69 


4722* 








ADCCSK9 466 


4729* 








ADCCSOUT 460 


4631* 








ADCC5TF 471 


4751» 








ADCLRFH 472 


4758 


4772* 






ADFSEC 419 


4417* 








ADFSECl 442 


I* 4431 








ADF5EC2 442 


1 4431* 








ADFSEC8 443 


« 








ADFSEC9 443 


4437« 








ADFSNRV 441 


>* 4410 








ADI55SSD 373 


4016* 








AuILVTB 402 


4034* 








AD IN IT 15 


! 3736 


4042* 






ADINLV 416 


?« 4182 








ADINLV'9 416 


4171* 








ADMTROF 379 


9 3825 


4077 


4105* 




ADMTRGN 382 


} 4075 


4111* 


4126 




ADRCAD 446 


>> 4467 








ADRCRD 422 


5« 4233 








ADRCSC 417 


P« 4187 








ADRCSK 457 


« 4575 








ADRD4 427 


i 4337* 


4338 


4342 




ADRD4B 383 


1 4336« 








ADRD4E 383 


1 4344* 








ADRD5 429 


4306 


4315 


4350* 


4357 


AORDSB 383 


4349* 








ADRD5E 383 


i 4361* 








ADRD6 428 


\ 4367* 








ADRD61 436 


J* 4369 


4371 






ADRD62 437 


5* 4376 
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ADROi? 




4382« 






ADRDiB 




4366* 






ADHD6E 




4384« 






ABROAD 




4467« 


4580 




ADRDADl 




4477 






ADRDA02 




4474« 


4475 




ADRDAD3 




4484 


4491 




ADRDAD3A 




* 4482 






ADR0AD3B 




« 4489 






ADRDAD4A 




» 4502 






ADRDAD4E 




« 4513 






ADRDAD4C 




4524 






ADRDAD4D 




4535 






AORDAOSA 




4506 






ADRDA05B 




4517 






ADRDAD5C 




4528 






AOROAOSO 




4539 






AORDAO& 




4550 






A0RDAD7 




4557 






ADRDA08 




4545 


4552 


4559 4562* 


AORDVR 




4115* 






ADRDVRl 




4155 






A0R0VR9 




4148 


4151 


4153 4157* 


ADRST 
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LCMDERR 


604 


2609 


2617 


2630 2638 


LCHDEX 


663 


2667* 






ICMDOK 


657 


2665* 


2700 


2703 


LCHDR 


2932* 


3100 


3122 


3463 


LCMOTORO 


J946* 


3099 


3113 




LDBLKIO 


247 


1950 


2024* 




LDDSKl 


144* 


2146 






LDOSKU 


U43 


2146* 






LDDSK2 


U37 


2152* 






LDDSK3 


il56* 


2157 


2161 




LDD5K9 


U48 


2159 


2163* 




LDDSKIO 


248 


1952 


2132* 





2617 2630 2638 2643 2651 26S9 2662* 2676 2681 2689 2692 27GS 



LDCETBB 1972 1976 1980 1984 1990« 

LDGETBI 1991 I001« 

LDRICI 203S 20S2* 

LDRI03 2055< 205& 206& 

LDKTRN 204i 20S8 20i2* 

LDSEND 2329 2031 2033 2077* 2078 2i4S 

LDSENDO 2070< 2096 

LDSENCl 2027 2093* 2142 

LDSiNC 480 2178* 

LDSYNCl 2182* 2187 2198 

LDSTNC2 2184* 2184 

LDSYNCS 2166 2190* 2192 

LD3YNC5 2188 21 '4* 

LDSYNC6 2191 2197* 

LD5YNC9 2195 2201* 

LDUXIT 2044 2052 2106* 2U2 

LDWAITl 2108* 2108 

LDVAIT2 211G 2113* 2ll4 2lU 

LDUIGl ZC40* 2041 2043 

LNSUF2 4011* 4275 4296 4305 4314 4314 

LOKCCHDS 2373 2425 2599* 2622 

LS1SD2SD 29 36* 

LS8INKIN 2937* 

LSDRQ 2934» 3292 

LSDSKCHG 2938* 

LSFMHFM 2939* 

L5INT 2935» 3295 3627 

L3TRR 2931* 3291 3627 

MARCH 384 397 751* 

MEMCLR 407 415* 

HEMTEST 398 406* 

MOTOROFF 3985* 1105 

MOTORON 3986* 4111 

KSi 754* 756 

HR2 760* 765 

HR3 769* 774 

MRERR 762 771 776* 

MSCi 445 922* 

KSCIG 626 928* 

MSCU 589 929* 

HSG12 594 930* 

MSGIS 599 931* 

MSG19 622 932* 

MSG2 449 558 925* 

HSC3 673 926* 

M5G30 546 933* 

HSC31 551 934* 

M3G32 540 935* 

H5G4 584 927* 

MSGCPY 282* 447 

KXBBASE 70* 72 73 74 428 581 

nXBEND 72* 

HXBENTRY 74* 586 

MXBIMIT 73* 427 580 

MXBLEN 71* n 

NBLK5SD 29S3* 4021 

MBLK8DD 2902* 3057 

NBLXeSD 2901* 3043 



NBUFl 


3853 


3854 


4281 


4290 


NBUF2 


33S4 


3858 


4274 


4294 4303 


KDEVUC 


28ii 


3369 






NIBL 


3902 








NIRQl 


2874 








NIRQ2 


2875 








NIRQ3 


287i 








NIHQ4 


2877 








NNMIl 


286? 








NNMI2 


2870 








NNMI3 


2871 








NNMH 


2872 








NOBUFR 


2284 


2414 






NOSCHOLL 


I37i 








NOSGCKT 


227<< 








NOTRANS 


2282 


2467 






OBOOT 


591 


2303* 






ODBLKl 


2370 








0DBLK2 


2368 


2376* 






0DBLK3 


2374 


2380* 






ODBLKIO 


24i 


2304 


2358* 




ODCKDI 


2331 


2333 






0DCMD2 


2332 


2336* 






ODCMD? 


2328 


2338* 






ODCOMND 


507 


513 


2319* 




ODDSKi 


240:i 








GDDSK2 


2403 


2412* 






0DDSK3 


2413 


2417* 






0DDSK4 


2422 


2425* 






ODD3X5 


2424 


2426* 






0DDSK6 


2415 


2429* 






ODD5K9 


2410 


2435* 






ODDSKIG 


242 


525 


527 


2306 2400 


ODDV 


2254 








GDDVKI 


2255 








ODDWLO 


2256 








ODVALID 


225 8 


2360 


2409 


2412 2417 


ODWRAD 


2257 


2372 


2407 


2537 2538 


OFF 


21? 








ON 


220 








PHASEOOF 


3973 


46 5 7 






PflASEOON 


397 4 








PHASE iuF 


3976 


4658 






PHASE ION 


3977 








PKASE20F 


3979 


4659 






PHASE20N 


3980 








PHASE3GF 


3982 


4660 






FHASE30N 


3983 








PHASEOFF 


3970 


4774 






PHASEON 


3971 


4769 






PRIOR 


3863 


4692 


4717 




PROKIEVL 


56 


( 236 


924 




PROMVERS 


54 


» 235 


924 




a6K 


3997 








Q6L 


3996 


4240 


4250 


4258 4337 




4534 


4538 


4549 


4556 


Q7H 


3999 








Q7L 


3998 









4368 4375 4474 4481 4488 4501 4505 4512 4516 4523 4527 



RAHEASE 


58 


60 


62 


63 


64 






















RAMEND 


H 






























RAHRESUF 


oO 


1011 


1054 


llOQ 
























RAHKBLEK 


61 


957 




























RAMLEN 


59 


64 




























RAMMXBoC 


62 


415 




























RAKSi:? 


112 


617t 




























RAMSIZE 


3?6 


421 


677 


810* 
























RAMTSTl 


371 


379* 




























HAMTST2 


385 


393« 




























RAMVK5TA 


63 


100 


101 


103 


104 


105 


106 


108 


189 


113 


113 


114 


116 


il8 


120 121 




122 


123 


124 


125 


126 


127 


129 


130 


13i 


133 


134 


135 


136 


137 


139 14S 




141 


142 


143 


146 


147 


MS 


H9 


150 


379 














RBOBLK 


2908 


3684 




























RBDOPCG 


2910 


3690 




























RBDUNT 


2909 


3687 




























RBUSY 


29I« 


3706 




























RDYADR 


2265 


2476 




























RECVO? 


2288 


2513 




























RERRUNOV 


291? 






























RE3TSKT 


2296 


2539 




























RG3QD 


290? 






























RHDR 


2223 


2224 


2225 


2226 


2227 


2228 


2321 


2508 
















RKDSKLN 


2227 






























RHDSKRC 


222.8 


2665 


26 99 


























RHPKTLH 


2216 






























RHFRTRC 


12 2 i 


2325 


2331 


2334 


2336 


2505 


25 21 


2526 


2613 


2647 


2686 










RK30R 


i225 


2626 


2656 


2696 
























RKVRERR 


291L 


36 93 




























RLOSTDEV 


2912 






























RN07HDY 


2918 


3497 


3709 


























ROHBASE 


66 


68 


153 


159 


160 


161 


162 


164 


165 


166 


167 


169 


170 


171 


172 174 




175 


176 


177 


178 


179 


180 


161 


163 


134 


186 


187 


188 


189 


192 


193 194 




195 


196 


197 


198 


231 






















RONEND 


68 


f- 369 


111 


























ROMLEH 


67 


68 




























R0MT3T 


370 


704* 




























ROMTSTl 


3.68 






























RPTSTl 


53? 


544* 


556 


























RFTST2 


545 


554» 




























RPTST8 


558 






























RPTST? 


563 


563 




























RPT3TAT 


530 


537« 




























RRKF 


2917 


3702 


4327 


4380 


4435 


4562 




















RSEEXERR 


2915 


3699 




























RTi 


708 


711 




























RTIERR 


381 


387« 




























RTZERR 


39 5 


400* 




























RVRPROT 


2914 


3696 




























5BB0OT 


592 


597 


619« 


























SBDEBUG 


579 


t 636 




























SBERR 


2459 


2461 


2463 


2467* 
























3BEXIT 


2465 


2469* 




























SBFLPY 


252 


577 


599* 


638 
























SBFLPYi 


604 


611 




























SBFLPTi 


606 


615* 




























SBFLPV3 


60S 


618* 




























SBLQCAL 


246 


574 


594« 


640 

























SBKSG 


590 


595 


600 


621* 


SBOKNI 


240 


576 


589* 


642 


SBSTROfi 


245S 


2460 


2462 


2473* 


5EU5ER 


572 


583 


626* 


675 


5BUSY 


3012« 


3286 


3455 


3671 


SBVl 


247<« 


2478 






SBVAIT 


2444 


2475* 






SBWESIT 


2477 


2479* 






SCIO 


2521* 


2523 






sen 


2522 


2526* 






SC20 


2541 


2543* 






SC3fl 


2557 


2560* 






SC32 


2559 


2561* 






SC4I1 


2545 


2566* 






SC38 


2573* 








SC6(I 


2579* 


2581 






SC70 


2580 


2584* 






3CERRI 


2528 


2586 


25£9« 




5CERR2 


2518 


2575 


2591* 




5CEER3 


2524 


2582 


2593* 




SCEXIT 


2530 


2587 


2590 


2592 2595' 


SCMD2 


2686* 


2691 


2706 




SCMD3 


2i87 


2696* 






SCMD4 


2698 


27C2* 






SCPT5SD 


2B9i« 


4023 






SCPT8DD 


28?G» 


3059 






5CFT83D 


2889* 


3045 






SCRCERR 


3021* 


3213 


3650 


3670 


SDRQ 


3015* 








SDTCVER 


3018* 


3211 






3DTUNDR 


30i9« 








5ELBO0T 


570* 








SENDOP 


2289* 


2572 






SETCO 


2485* 


2603 


2629 




SETCOl 


2492 


2505* 






SETINTV 


430 


436* 






SETMB 


427* 








3ETRECV 


2497* 


26 37 


2658 


2675 2704 


SETUP 


233 


300* 


643 


4784 


SETUP 1 


30i« 


306 






SETUP 2 


307* 


307 






SETUPS 


308* 


308 






SHDLDD 


3Q2i* 








SHDR 


2232* 


2233 


2236 


2237 2567 


SHFMLN 


2237* 


2371 


2377 


2418 2419 


SHORTCMD 


2378 


2423 


2671* 




SHPKTRC 


2233* 


2566 


2579 


2585 2589 


SHTOLH 


223d* 


2370 


2376 


2405 2421 


SINDEI 


3014* 








SLOTIAD 


2864* 








SLOTADR 


913* 


2025 


2133 


2179 


SLOTID 


45i* 








SLOTIDl 


4i0« 


503 






SLQTID2 


477 


479 


484* 




SL0TID3 


485 


487 


490* 




SLGTID8 


481 


497* 






SL0TID9 


491 


493 


495 


500* 


SLOT IDA 


515 


520* 







2540 2542 2543 2554 2538 



SLOTIDB 


508 


518 


525' 








SLOTFTR 


9: 1 


914 










5LTADCFS 


m: 












£LTS7AD 


2867 












SNDCMD5 


2550 


2408 


2480 








SKDRE5T 


2537 


2642 










SNGTRCi 


:332 


3493 


365? 


3674 






SR 


33Q 


1036 


112G 


1121 


1128 


2090 2093 




4579 


4581 


4689 


4690 


4724 




SRAHLK4 


3834 












3RAHLM5 


3835 












SRAKLN6 


3834 












SRAHLN-V 


3837 












SRAKRD4 


3845 












3RAKRD5 


3646 












SRAKRD6 


3847 












3RAMVT 


3848 












SRECTYr 


3027 












3RNF 


3024 


3652 










53EEKERR 


3023 


3526 


3668 








STRADR 


2244 


2474 










STRKfl 


30;7 












STRuEIT 


2317 


2453' 


2517 


2574 






5UI1 


439 


440 










5VLC«D 


2851 


3098 


3101 


3l2i 






SVRFA'JLT 


3028 












SVRrROT 


303S 


3662 










TCuACHI 


224 6 


2491 


2501 


2537 


2554 




TCDADLu 


224 9 


2538 










TCBEST 


2252 


2563 


2625 


26 55 


2697 


2732 


TCDTALN 


2250 


» 24B5 


2502 


2543 


2558 


2560 


TCKDRLN 


2251 


2484 


25C3 


2544 


2561 




TCKD 


2243 


2244 


2245 


2246 


2247 


2243 2249 


TCCF 


2244 


* 2322 


2323 


2513 


25 72 




TCRADHI 


2245 


2512 


2571 








TCRADLO 


2246 












TC30CK 


2247 


2324 


2514 


2539 


2555 




TIMEOUT 


Z283 


2334 


2593 








TKP55SD 


2897 


4024 










TKP58DD 


2896 


5060 










TKP383D 


2895 


3046 










TOIHTVL 


2266 


2329 


2475 


2519 


2578 




TGOLGNG 


2275 












TRKCKT 


3862 


4688 


4738 


4710 


4719 




TRKN 


3864 












USREASE 


63 


393 


320 


682 


1963 


2735 2744 


VERT 


1366 


151? 


USl 


1679 


1708 


1786 


VI ABASE 


77 


203 


204 


310 


835 




WAITING 


2270 


2325 


2331 


2505 


2521 


2566 2579 


VALKEIT 


38G 


394 


720* 








VBl 


724 


» 74C 










VB2 


725 


729 










-WB3 


732 


736 










VBERR 


727 


734 


742« 








WriOOP 


2294 












VRAFON 


1370 












WRATTRi 


1363 












VRAnRl 


1364 


1517 


USl 


1679 


170B 


1786 



98 3279 3280 3307 4184 4185 4200 457 



2251 2252 2326 2316 



744 3739 3748 



WRBASEZ 


















VRBA5EY 


















VRBITOFS 




i5i5 


H49 


UU 










VRCKARFT 




1395 


1439 












VRCURADR 




1511 


li48 


lUi 










VRCURSX 




1580 


1582 


1597 


1617 


1619 


U27 


1632 


WRCUR5Y 




iiU 


U08 


U28 


1633 


U35 


1682 


1692 


VRGRORGX 


















WRGRORGY 


















WRHOMEOF 




1789 


1799 












WRHOMEPT 




1780 














VR LENGTH 




1391 


1837 


1856 










WRLNGTHI 




1583 


1639 


1719 


1730 


1769 






VRLNGTHY 




1&09 


1684 


1694 










VRRCOLEN 


















VRSTATE 


1373* 


1441 


1447 


1450 










ZERORAK 


Ul 


416 


422 


825* 


627 









1663 1707 1763 1774 



